重複をチェックするときにヘッダを無視する

Question

重複をチェックするときにヘッダを無視しようとしています。私は2つの異なるワークシート上の同じ列をチェックするためにコードを使用しており、ヘッダーを複製としてピックアップしています。 2行目から始めると、複製をスキップして3番目と3番目のものだけをコピーします。

lR1 = S1.Range("A" & Rows.Count).End(xlUp).Row 
lR2 = S2.Range("A" & Rows.Count).End(xlUp).Row 
For Each c In S1.Range("A1", "A" & lR1) 
    If Not IsEmpty(c) Then 
     n = 0 
     On Error Resume Next 
     n = Application.Match(c.Value, S2.Range("A1", "A" & lR2), 0) 
     On Error GoTo 0 
     If n > 0 Then 
      If Not dRws Is Nothing Then 
       c.EntireRow.Select 
       Selection.Cut 
       Sheets("Duplicate").Select 
       Range("a2").Select 
       Selection.Insert Shift:=xlDown 
       S1.Select 

Answer 1

私はそれを自分自身に答え：D私はすでに別のシートに行を移動するので、それのための使用はありませんでした、dRwsとして格納されたものを削除遠くダウンラインを持っていました。