Сорка за error-a проблемът е в предмониторното устройство. Все ги бъркам двата щата БАЗИКА и ПАСКАЛА (делфи де). Махнал си го DO - добре!
Ако бях на твое място бих преработи кода така:

Private Sub CommandButton2_Click()
Dim Namereno As Boolean, K As Long, St As String
Dim Name1 as string,Name2 as string, J as long
'J си го дефинирам по навик от паскала,че там е задължително
'при различните видове БАЗИЦИ и може и да не се дефинира
'но имаше некъв БАЗИК дето бачкаше до 10 недефиниран масив (напр)....
Name1="База"
Name2="Справка"
'тука избягвам варианта - кирилица/латинаица и грешно изписване на името на листа
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(Name2).Cells(J, 2).value = Sheets(Name1).Cells(K, 2) .Value)
Wend
If Namereno Then
Sheets(Name1).Cells(K, 5) = Sheets(Name2).Range("AQ" & J)
Sheets(Name1).Cells(K, 6) = Sheets(Name2).Range("AL" & J)
Sheets(name1).Cells(K, 7) = Sheets(Name2).Range("AK" & J)
Sheets(Name1).Cells(K, 41) = Sheets(Name2).Range("AP" & J)
Else
St = "Не спи като въвеждаш!"
Sheets(Name1).Cells(K, 5).value = St
Sheets(name1).Cells(K, 6).value = St
Sheets(Name1).Cells(K, 7).value = St
Sheets(Name1).Cells(K, 41).value = St
End If
Next J
End If
end sub



И да знаш: тва VALUE все го изтървам...Ае че чъм на греянка, че с тва гадното време - пролет-зимя-лято нещо съм прихванал. А както казват мислителите:
ВСИЧКИ БОЛЕСТИ ИДАТ ОТ НЕРЕДОВНОТО ПИЕНЕ!

Наздраве и пиши кво е станало.