필터, 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