ExcelのListObjectについて(VBA)

質問

Excel2003のVBAで、ListObjectを使用しようかと考えています。
見出し行で選択して、絞り込んだリストのみ(表示されているリストのみ)を選択して別のセルに複写する方法ってどうすればいいのでしょうか？DataBodyRangeでは、リスト全体が選択されてしまいます。
たとえば、SUBTOTALみたいに表示されているもののみ対象としたいのですが・・？
例：
見出し行：種別、名前、年齢
　　　　　犬、ポチ、３歳
　　　　　犬、ジョン、３歳
　　　　　猫、タマ、２歳
　　　　　猫、ジョセフ、３歳
のリストで、年齢を３歳で抽出すると
　　　　　犬、ポチ、３歳
　　　　　犬、ジョン、３歳
　　　　　猫、ジョセフ、３歳
と表示されるので、範囲を選択して別のシートに複写したいのですが、どのようにすればいいのかわかりません。
どなたか、詳しい方がいらっしゃいましたら教えて頂けないでしょうか？よろしくお願い致します。

回答No.1

Wendy02 · ベストアンサー

こんにちは。

そのまま、ListObject の範囲(Range) をコピーすればよいのではありませんか？

　With Worksheets("Sheet1")
　If .ListObjects.Count = 0 Then Exit Sub
　　 .ListObjects(1).Range.Select
　　 .ListObjects(1).Range.Copy Worksheets("Sheet2").Range("A1")
　End With

お礼

回答ありがとうございます。
何度も試してみた上で質問したつもりでしたが、根本的に何か間違っていたようで・・！！
仰るとおり、単純にできました。
泥沼にはまっていたようで助かりました。
ありがとうございます。