Применение aвтофильтра в макросе

[sergo44441]

Добрый день, уважаемые знатоки.
Мне нужно осуществить нарезку отчета по офисам.
У меня есть таблица закрепления менеджеров за офисами (за одним менеджеров бывают закреплены несколько офисов.
Хочу последовательно выделять список офисов, закрепленных за каждым менеджером, переносить полученный список офисов в массив, полученные значения использовать для фильтрации.
Прилагаю файл с макросом, поправьте, пожалуйста, код. На этапе занесения в массив ошибка выходит.

[kuklp]

Так:

Код Выделить Развернуть

a = .Offset(1).Columns(2).SpecialCells(12).Valueне получится занести в динамический массив. Тут либо циклом заносить поячеечно, либо скопировать видимые в другое место, тогда получится неразрывный диапазон. Вот его уже можно будет одним махом загнать в массив.