フィルタ、vbaにヘッダーのない行をコピーしてコピーする

Question

フィルタ処理されたデータをコピーして差分Excelファイルに貼り付けます。私は行をフィルタリングし、コピーして貼り付けることができます。私が直面している唯一の問題は、毎回ヘッダーをコピーして貼り付けていることです。ペーストするヘッダーを避ける方法を教えてください。

If Not ws1.AutoFilterMode Then 
    ws1.Range("D1").AutoFilter field:=4, Criteria1:="=Gaus", Criteria2:="=Shaikh", Operator:=xlFilterValues 
    RowCount = ws1.Application.WorksheetFunction.Subtotal(2, Range("A2:A1048576")) 

Answer 1

これは、見えるセルをヘッダー行なしでコピーします。

Dim rSource As Range 
Set rSource = Range("A1").CurrentRegion.Offset(1) 

rSource.Resize(rSource.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy