try it
Sub ertert()
Dim x, y(), i&, k&, s$, wsh As Worksheet
x = Range("A2:B" & Cells(Rows.Count, 1).End(xlUp).Row).Value
ReDim y(1 To UBound(x), 1 To 3)
With CreateObject("Scripting.Dictionary")
.CompareMode = 1
For i = 1 To UBound(x)
s = x(i, 1) & "|" & x(i, 2): .Item(s) = i
Next i
For Each wsh In ThisWorkbook.Worksheets
If Not wsh Is ActiveSheet Then
x = wsh.Range("A1").CurrentRegion.Value
For i = 1 To UBound(x)
s = x(i, 1) & "|" & x(i, 2)
If .Exists(s) Then
k = .Item(s)
y(k, 1) = x(i, 3)
y(k, 2) = x(i, 4)
y(k, 3) = x(i, 5)
End If
Next i
End If
Next wsh
End With
Range("C2:E2").Resize(UBound(y)).Value = y()
End Sub
Bookmarks