Ако е трудно да copy/paste кода:
Namereno = (Sheets(Name2).Cells(J, 2).VALUE = Sheets(Name1).Cells(K, 2).VALUE)
то можеш да го разбиеш така:
if Sheets(Name2).Cells(J, 2).VALUE = Sheets(Name1).Cells(K, 2).VALUE then
Namereno=true
else
namereno=false
end if

за по-горния пост виж тва дето е написано с големи букви (добавено към твоя код) ".VALUE". То все едно казва на ексела:
Sheets(Name2).Cells(J, 2).VALUE
Лист Name2, Клетка ред J, колона 2, ей тва дет е вътре.
Можеш да сложеш един BreakPoint на сорса и да трасираш, дали нещо се е осрало.Много пъти съм си хващал грешки по тоя начин...След часове зверене на теливизора му се струва на човек, че всичко е наден, а се оказва че ....... (нещо съвсем елементарно - като буква на кирилица, интервал нейде, офиса нещио не харесва - дет стария го е харесвал и т.н.)