Наложение фильтров на сводную таблицу с использованием макроса

[gots]

Есть сводная таблица (скрин в файле 1), необходимо ставить фильтр по году, месяцу и декаде. Макрос написан и работает достаточно быстро.
По нажатию "кнопки" стар, выдаются формы для выбора нужного периода и станций.
Но руководству необходимо выбирать каждый раз новые станции назначения, а их там около 1000. Если делать руками: выделить все ставить галочку, убрать галочку и отметить необходимое - то работает все, конечно, моментально. а в макросе.. приходится перебирать каждый PivotItems PivotFields("Станция назначения") и тогда обработка занимает значительное количество времени, что не устаивает.
Каким образом можно автоматизировать макрос?
Есть ли функции которые возвращают отмеченные PivotItems, что бы можно было убрать только их и постаивть нужные??

Пожалуйста, помогите!!
Очень срочно!