Option Explicit
Sub test()
Dim i As Byte, l As Long, x As Range, b As Boolean
Application.ScreenUpdating = False
Worksheets.Add after:=Worksheets(Worksheets.Count)
For l = Worksheets(5).Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
b = False
For i = 1 To 5
Set x = Worksheets(i).Columns(2).Find(Worksheets(5).Cells(l, 2), , xlValues, xlWhole, , , False)
If x Is Nothing Then b = True: Exit For
Next i
If Not b Then
For i = 1 To 5
Set x = Worksheets(i).Columns(2).Find(Worksheets(5).Cells(l, 2), , xlValues, xlWhole, , , False)
x.Resize(, 4).Copy Destination:=Worksheets(Worksheets.Count).Cells(Rows.Count, 2).End(xlUp)(2)
Next i
End If
Next l
Application.ScreenUpdating = True
End Sub