VBA - копировать ячейку и вставлять пустые строки в столбец

Question

Я делаю шаблон для других, чтобы вставить свои данные в файл, а для макроса запустить и скопировать формулы во все строки, содержащие данные.Лист содержит заголовки.Формула находится в столбце D (цена).Я хочу, чтобы макрос начинался в ячейке D2, и копирую формулу в ячейке D2 по всем строкам столбца D.

Answer 1

Методом проб и ошибок, а также составлением разных рекомендаций, вот что работает для моих целей:

Public Sub CopyDownRows ()

Dim rng As Range Дим LR As Long

Sheets("Sheet1").Select
LR = Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Range("D3:D" & LR)
Range("D").Select
Selection.Copy
rng.Select
ActiveSheet.Paste

End Sub