Выполнение макроса при фильтре
 

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

Спасибо