Help for this page

Select Code to Download

Select or download this

    ActiveWorkbook.Worksheets("A").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("A").AutoFilter.Sort.SortFields.Add Key:
+=Range _
        ("E29"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOpti
+on:= _
...
        .SortMethod = xlPinYin
        .Apply
    End With