лжение этой темы:Динамические выпадающие списки данных с ранжированием по нескольким критериям

Я хочу отсортировать список на основе нескольких критериев, а затем ранжировать его и, наконец, отобразить его в раскрывающемся списке проверки данных (раскрывающиеся списки описаны в теме, указанной в ссылке выше).

Как отсортировать данные по нескольким критериям в Excel 2016? Я попытался с помощью расширенного фильтра и события worksheetChange. Я хочу манипулировать данными, прежде чем сортировать их, и хочу ранжировать данные, прежде чем сортировать их.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$D$2" Then
    Range("ÄB1[#All]").AdvancedFilter Action:=xlFilterInPlace, _
                       CriteriaRange:=Range("D1:D2"), Unique:=False
End If

End Sub