Sub DoIt()
    ' Before running macro, select first (leftmost) column to sort.
    Dim Counter As Integer
    Counter = 1
    Do While Counter <= 280 'set number according to columns remaining to sort
        ActiveWorkbook.Worksheets("SortIt").Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("SortIt").Sort.SortFields.Add Key:=ActiveCell.EntireColumn.Cells(1), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With ActiveWorkbook.Worksheets("SortIt").Sort
            .SetRange Selection.EntireColumn
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        ActiveCell.Offset(0, 1).Range("A1").Select
        Counter = Counter + 1
    Loop
End Sub