Ошибка в макросе по переносу данных

[Richard123]

Задача. Есть данные, скопирать данные на другой лист, изменить 1-ую колонку, перенести изменненные данные обратно на 1 лист.


Что не так:

 Sub ABC

 Sheets.ADD.Name = "TempForPrice"
    With Sheets("Ëèñò1")
         .ROWS("1:1").Hidden = True
         .Range("B1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy Sheets("TempForPrice").Range("A1")
         .ROWS("1:1").Hidden = False
    End With
    With Sheets("TempForPrice")
         .Columns("A:A").FormulaR1C1 = "Öåíà"
         .Range("A1").CurrentRegion.Copy Sheets("Ëèñò1").Range("A1").End(xlDown).Offset(rowOffset:=1, columnOffset:=0)

End Sub

[EducatedFool]

Что не так:

это у вас надо спросить...

что сподвигло вас создать эту тему?
ошибка выскакивает при запуске макроса?

PS: Последней строкой в макросе поставьте End With

[Richard123]

Стоит задача перенести измененные данные обратно на 1 лист.

Ошибка выскакивает в процессе выполнения макроса.

А именно при выполнении вот этой части:

    With Sheets("TempForPrice")
         .Columns("A:A").FormulaR1C1 = "Цена"
         .Range("A1").CurrentRegion.Copy Sheets("Лист1").Range("A1").End(xlDown).Offset(rowOffset:=1, columnOffset:=0)
    End With

Выскакивает ошибка что данные не могут быть скопированы из за не соответствия формы. Как я понимаю, то что я написал может скопировать на новый лист данные, а в конец данных первого листа не может. Как правильно записать макрос?


Ой, а как сделать что бы в колонке "А" значение "Цена" протянулось только по имеющимся данным, а не по всей длине колонки?