如何在没有标题的情况下复制过滤后的范围并将其粘贴到另一张表格中？

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