Excel - Сортировка по возрастанию и убыванию

Sub Сортировка_По_Кол_во()
'
'
 
'
    ActiveWorkbook.Worksheets("Ëèñò1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Ëèñò1").Sort.SortFields.Add Key:=Range("D3:D1000") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Ëèñò1").Sort
        .SetRange Range("B2:F1000")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Sub Сортировка_По_Кол_во()
    Static n as Long 
    Dim srt as Long
    n=n+1
    srt=xlAscending
    If n Mod 2 = 0 then srt=xlDescending
'
    ActiveWorkbook.Worksheets("Ëèñò1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Ëèñò1").Sort.SortFields.Add Key:=Range("D3:D1000") _
        , SortOn:=xlSortOnValues, Order:=srt, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Ëèñò1").Sort
        .SetRange Range("B2:F1000")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$D$2" Then: Call Module1.Êîë_âî
 End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = "$D$2" Then
        Range("a1").Select 'Переход чтобы завершить режим редакции и сделать ячейку D2 доступной
        Сортировка_По_Кол_во
    End If
End Sub