У меня есть набор диапазона (заголовки), и для каждого столбца я пытаюсь скопировать ячейки (заголовки + смещение на 1 строку) до последней строки и вставить его на другой лист.
Я пробовал это:
Sub CopyandPaste
Dim Lastrow as Long
Lastrow = Worksheets("Sheet1").Range("A" & rows.Count).End(xlUp).Row
Set P = Application.InputBox("Code", "CODE", , , , , , 8)
P.Columns(2).offset(1, 0).Select
**From activecell to lastrow copy**
Worksheets("Sheets2").Range("A2").PasteSpecial xlPasteValues
P.Columns(3).Offset(1,0).Select
**From activecell to lastrow copy**
Worksheets("Sheets2").Range("C2").PasteSpecial xlPasteValues
End Sub
Кроме того, если я сделаю цикл, скажите, пожалуйста, как я могу подойти к нему? По сути, идея состоит в том, чтобы скопировать заданный диапазон и вставить его на новый лист с пустым столбцом между ними.