セル.CurrentRegion.Copy

 フィルターで絞り込んだ結果だけを別セルにコピーするには、絞り込まれた表に対してCurrentRegionプロパティを使います。すると、フィルターで非表示になっているセルは含まずに、抽出結果全体を指定できます。

 この結果をコピーするには、Copyメソッドを使います。「セル.Copy コピー先」のような書き方でコピー先を指定すればOKです。

[画像のクリックで拡大表示]
図●実行結果。絞り込んだ結果のみがコピーされている
図●実行結果。絞り込んだ結果のみがコピーされている
[画像のクリックで拡大表示]