Excelマクロのデータ抽出

Excelマクロを久しぶりに組んでます。
for ループでデータ抽出を行っていたのですが、2000行のデータでテストすると10分以上かかってしまいました。
そこで、Autofilter を使っての抽出に切り替えたところ、数秒で完了＾＾；；

AutoFilter　恐るべし。。