フィルタリングされた範囲をヘッダなしでコピーして別のシートに貼り付けるにはどうしたらいいですか？

Question

これまでのところ、これを別のシートに貼り付けたいと思っています。

Sheets("CDGL Data").Select 
    Range("A1").AutoFilter Field:=32, Criteria1:= _ 
     "*13725*" 
    ActiveSheet.AutoFilter.Range.Copy 

私はそれはきれいではありませんが、それが効果的ですA1

Answer 1

に開始ヘッダをコピーする必要はありません。

With ActiveSheet.AutoFilter.Range 
    .Offset(1, 0).Resize(.rows.Count - 1).Copy 
End With 

Answer 2

ActiveSheet.UsedRange.Offset(1, 0).SpecialCells _ 
    (xlCellTypeVisible).Copy