Sub es()
Dim t(), r(), i As Long, x As Long, m As Object, z, y As Byte
Set m = CreateObject("Scripting.Dictionary")
t = Range("e7:l" & Cells(Rows.Count, 5).End(3).Row)
r = Range("o7:v" & Cells(Rows.Count, 15).End(3).Row)
For i = 1 To UBound(t)
z = t(i, 1) & t(i, 2) & t(i, 3) & t(i, 4) & t(i, 5) & t(i, 6) & t(i, 7) & t(i, 8)
If Not m.exists(z) Then m.Add z, z
Next i
For i = 1 To UBound(r)
z = r(i, 1) & r(i, 2) & r(i, 3) & r(i, 4) & r(i, 5) & r(i, 6) & r(i, 7) & r(i, 8)
If m.exists(z) Then
x = x + 1
For y = 1 To 8: r(x, y) = r(i, y): Next y
End If
Next i
[x7].Resize(x, 8) = r
End Sub