Както казваш ти Ексела ревна!
Аз ти благодаря, че съдействаш!
Значи, първо реда с do светна - не ми е ясно за какво е и за това го махнах; Второ, реда Namereno = (Sheets("Ñïðàâêà").Cells(J, 2)) = (Sheets("Áàçà").Cells(K, 2)) и той светна;
ето сорса:


Private Sub CommandButton2_Click()
Dim Namereno As Boolean, K As Long, St As String
If MsgBox("Моля, изчакайте, докато данните се прехвърлят !", vbOKCancel + vbInformation, "Прехвърляне...") = vbOK Then
For J = 12 To 55
Namereno = False
K = 11
While (K < 55) And (Not Namereno)

K = K + 1
Namereno = (Sheets("Справка").Cells(J, 2)) = (Sheets("База").Cells(K, 2))
Wend
If Namereno Then
Sheets("База").Cells(K, 5) = Sheets("Справка").Range("AQ" & J)
Sheets("База").Cells(K, 6) = Sheets("Справка").Range("AL" & J)
Sheets("База").Cells(K, 7) = Sheets("Справка").Range("AK" & J)
Sheets("База").Cells(K, 41) = Sheets("Справка").Range("AP" & J)
Else
St = "Не спи като въвеждаш!"
Sheets("База").Cells(K, 5) = St
Sheets("База").Cells(K, 6) = St
Sheets("База").Cells(K, 7) = St
Sheets("База").Cells(K, 41) = St
End If
Next J
End If
end sub

Благодаря!