изцяло грешен подход.
с тоя код проверяваш дали на един и същи ред в двата листа имаш съвпадение на имена....
трябва да имаш два два цикъла един в друг
кода трябва да ти е такъв:
For J = 12 To 55
For i = 12 To 55
If (Sheets("Справка").Cells(J, 2)) = (Sheets("База").Cells(i, 2)) Then
Sheets("База").Cells(i, 5) = Sheets("Справка").Range("AQ" & J)
Sheets("База").Cells(i, 6) = Sheets("Справка").Range("AL" & J)
Sheets("База").Cells(i, 7) = Sheets("Справка").Range("AK" & J)
Sheets("База").Cells(i, 41) = Sheets("Справка").Range("AP" & J)
Exit for
End If
Next i
Next J