The code is

Sub Start_It()

number_of_columns = 2
a = ActiveSheet.Range("A2:C30").Value
With CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(a, 1)
    .Item(a(i, 1)) = a(i, 1)
      For ii = 1 To number_of_columns
                .Item(a(i, 1 + ii)) = a(i, 1 + ii)
      Next ii
    Next

b = ActiveSheet.Range("J2:L9").Value
        For i = 1 To UBound(b, 1)
            If .Exists(b(i, 1)) Then
             For ii = 1 To number_of_columns         
  b(i, ii) = a(b(i, 1), (ii)) 
        Next ii
         End If
      Next i
 End With

ActiveSheet.Range("K2:L9").Value = b

End Sub