[okshef]

Я использую макрос, но у меня 2 столбца, сортитровка по значению в первом:

Код:

Private Sub Worksheet_Change(ByVal Target As Range)
        Range("A:B").Sort _
            Key1:=Range("A1"), Order1:=xlAscending, _
            Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
            xlTopToBottom, DataOption1:=xlSortNormal
End Sub