Я именно так и определяю последнюю стоку вот код:
Range("c" & Cells(Rows.Count, 3).End(xlUp).Row).Copy Range("c2:c" & _
Cells(Rows.Count, 2).End(xlUp).Row).PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False
Range("d" & Cells(Rows.Count, 4).End(xlUp).Row).Copy
Range("d2: d" & _
Cells(Rows.Count, 2).End(xlUp).Row).PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False
А когда заменяю 2 выделенные ячейки переменной или формулой выдает ошибку.
Подскажите, пож, как лучше сделать?