Сортировка полей и значений в сводной таблице

Question

Мне нужна небольшая помощь с макросом, который может сортировать данные в сводной таблице ниже.

У меня есть макрос, который копирует диапазоны Excel из нескольких электронных таблиц, затем вставляет данные в целевые рабочие книги и обновляет несколькосводные таблицы.

Каждый раз, когда я меняю фильтр на новый месяц в приведенной ниже сводной таблице, все сортируется в алфавитном порядке.Поскольку мне нужно менять фильтр ежемесячно, я хотел бы убедиться, что данные в нужном порядке в этой конкретной сводной таблице.

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

Исходная сводная таблица:

Требуемый порядок сводной таблицы:

Я попытался записать макрос, но безуспешно.

Answer 1

У меня работает следующий код:

ActiveSheet.PivotTables("PivotTable1").PivotFields("COUNTRY").AutoSort _
    xlDescending, "Sum of Amount", ActiveSheet.PivotTables("PivotTable1"). _
    PivotColumnAxis.PivotLines(3), 1

ActiveSheet.PivotTables("PivotTable1").PivotFields("CITY").AutoSort _
    xlDescending, "Sum of Amount", ActiveSheet.PivotTables("PivotTable1"). _
    PivotColumnAxis.PivotLines(3), 1

Спасибо за вашу помощь в этом вопросе Pᴇʜ