Option Explicit

Sub tt()
     Dim a(), i&, ii&, t$

     With Application
         .ScreenUpdating = False

         With CreateObject("Scripting.Dictionary"): .comparemode = 1

             a = Sheets(1).[a1].CurrentRegion.Value    
             For i = 2 To UBound(a)
                 t = Application.Trim(a(i, 1)) & "|" & a(i, 2): .Item(t) = i    
             Next

             a = Sheets(1).[e1].CurrentRegion.Value    
             ReDim b(1 To UBound(a), 1 To 2)    
             For i = 2 To UBound(a)
                 t = Application.Trim(a(i, 1)) & "|" & a(i, 2)
                 If .exists(t) Then     
                     ii = ii + 1
                     b(ii, 1) = a(i, 1)
                     b(ii, 2) = a(i, 2)
                 End If
             Next

         End With