VBA - Sorting by columns

[snb]

The sorting orientation is one of the sort method's arguments.
To sort by columns use:

Sub SortAscending()
   Sheet1.Cells(1).CurrentRegion.Sort Sheet1.Cells(1), 2, , , , , , 1, , , 2
End Sub