I think you're looking for something like this: 
Sub Test()
Dim arr1 As Variant
Dim arr2 As Variant
Dim arr3 As Variant
Dim coll As Collection
Dim i As Long, j As Long, LastRowColumnA As Long, zz As String, x

With Worksheets("Sheet1")
  LastRowColumnA = .Cells(.Rows.Count, 1).End(xlUp).Row
  arr1 = .Range("A1:C" & LastRowColumnA).Value
End With

With Worksheets("Sheet2")
  LastRowColumnA = .Cells(.Rows.Count, 1).End(xlUp).Row
  arr2 = .Range("A1:C" & LastRowColumnA).Value
End With
Set coll = New Collection
For i = LBound(arr1) To UBound(arr1)
  zz = ""
  For j = LBound(arr1, 2) To UBound(arr1, 2)
    zz = zz & "¬" & arr1(i, j)
  Next j
  coll.Add zz, zz
Next i

For i = LBound(arr2) To UBound(arr2)
  zz = ""
  For j = LBound(arr2, 2) To UBound(arr2, 2)
    zz = zz & "¬" & arr2(i, j)
  Next j
  On Error Resume Next

  coll.Add zz, zz
  If Err.Number <> 0 Then
    coll.Remove zz
  End If
  On Error GoTo 0
Next i

ReDim arr3(1 To coll.Count, 1 To 3)

For i = 1 To coll.Count
  x = Split(coll(i), "¬")
  For j = 1 To 3
    arr3(i, j) = x(j)
  Next j
Next i

With Worksheets("Sheet2").Range("F1").Resize(UBound(arr3), UBound(arr3, 2))
  .NumberFormat = "@"
  .Value = arr3
End With
End Sub