Sub Comparer()
For i = 4 To Range("A65535").End(xlUp).Row
For j = 4 To Range("I65535").End(xlUp).Row
If Left(Cells(i, 1), 11) = Cells(j, 9) Then
Range(Cells(j, 10), Cells(j, 15)).Select
Selection.Copy
Range("B" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Next j
Next i
End Sub