Sub Add_Sell() Worksheets("Форма ввода").Range("A20:E20").Copy n = Worksheets("Продажи").Range("A100000").End(xlUp).Row Worksheets("Продажи").Cells(n + 1, 1).PasteSpecial Paste:=xlPasteValues End Sub
Но в моем случае выдается ошибка "Object doesnt support this property or method". И дебаггер выделяет строку Worksheets("Продажи").Cells(n + 1, 1).PasteSpecial Paste:=xlPasteValues
Подскажите, пожалуйста, в чем может быть проблема и как исправить. Спасибо!
поправьте имена листов в макросе с ‹ист1 на Лист1 и в строке Worksheets("‹ист2").Sells(n + 1, 1).PasteSpecial xlPasteValues (тоже Лист....) и Sells На Cells