Сортировать по ссылке на другой лист

Question

Я пытаюсь получить порядок сортировки в отношении сводной таблицы, которая у меня есть на другом листе. Сводная таблица совпала и насчитывает. Я хочу, чтобы моя таблица со всеми странами сортировалась в порядке наивысшего значения в сводной таблице (это 5-й порядок сортировки:

Sub liste()


ActiveWorkbook.Worksheets("List").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("List").AutoFilter.Sort.SortFields.Add(Range( _
        "C:C"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color _
        = RGB(255, 147, 240)
    ActiveWorkbook.Worksheets("List").AutoFilter.Sort.SortFields.Add(Range( _
        "C:C"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color _
        = RGB(255, 189, 189)
    ActiveWorkbook.Worksheets("List").AutoFilter.Sort.SortFields.Add(Range( _
        "C:C"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color _
        = RGB(255, 242, 204)
    ActiveWorkbook.Worksheets("List").AutoFilter.Sort.SortFields.Add(Range( _
        "C:C"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color _
        = RGB(226, 239, 218)


'5th sort order should be in reference to the order of range :=Range("sheet2!A:A")

    With ActiveWorkbook.Worksheets("List").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub