Dim i As Integer
i = 1
For i = 3 To 20
    If (Range("A" & i).Select = Range("D" & i).Select) Then
        Range("A" & i).Select
        Selection.Copy
        Range("G" & i).Select
        ActiveSheet.Paste
        Range("B" & i).Select
        Selection.Copy
        Range("H" & i).Select
        ActiveSheet.Paste
    End If
Next i