Sub сортировка_2_столбец()
Range("AJ1").Select
k = 0: n = 1
Do While IsEmpty(ActiveCell) = False: k = k + 1: ActiveCell.Offset(1, 0).Select: Loop
Range("AJ1").Select
Stop1 = "AJ" & (ActiveCell.Row + k)
Stop2 = "AJ1" & ":" & Stop1
Do While ActiveCell = ActiveCell.Offset(1, 0): n = n + 1: ActiveCell.Offset(1, 0).Select: Loop

Nachalo = Chr(ActiveCell.Column / 26 + 64) & Chr(ActiveCell.Column Mod 26 + 65) & (ActiveCell.Row + 1 - n)
Konec = Chr(ActiveCell.Column / 26 + 64) & Chr(ActiveCell.Column Mod 26 + 67) & (ActiveCell.Row)

Range(Nachalo & ":" & Konec).Select

' сортировка автоматическая
Selection.Sort Key1:=Range(Nachalo), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchElseIf:ъlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

' сортировка ручная
Selection.Sort Key1:=Range("AK1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:ъlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End Sub