[okshef]

Нажмите Alt+F11, откроется редактор VBA.
Добавьте модуль с объявлением глобальной переменной "sortic", чтобы у вас не получилось зацикливания!!!

Код:

Public sortic As Integer

Для нужного листа вставьте такой код:

Код:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If IsEmpty(Target) And Target.Row = Me.UsedRange.Rows.Count Then End
    If Intersect([A:A], Target) Is Nothing Then MsgBox "Вы пытаетесь ввести число не в первом столбце": End
    If sortic = 1 Then sortic = 0: End
    sortic = 1
    Me.Sort.SortFields.Clear
    Me.Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With Me.Sort
        .SetRange UsedRange
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub