Try something like this..
You can see it working in the attached Workbook.
Private Sub CommandButton1_Click()
Dim d As Object, i As Long, j As Long, concval
Set d = CreateObject("scripting.dictionary")
With Sheets("Sheet1")
For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row
concval = Array(.Cells(i, 1), .Cells(i, 2), .Cells(i, 3))
d(Join(concval, "")) = 1
Next i
End With
With Sheets("Sheet2")
For j = 2 To .Range("A" & Rows.Count).End(xlUp).Row
concval = Array(.Cells(j, 1), .Cells(j, 2), .Cells(j, 3))
If d(Join(concval, "")) <> 1 Then
Sheets("Sheet3").Range("A" & Sheets("Sheet3").Range("A" & Rows.Count).End(xlUp).Row).Resize(1, 3).Offset(1).Value = concval
End If
Next j
End With
End Sub
Bookmarks