Еще можно использовать автозаполнение, всё равно как «растягивание» ячеек пользователем.
Второй диапазон должен включать первый, а второй, необязательный параметр, указывает тип автозаполнения.
Sub Auto_1()
Dim lngI As Long
Dim lngJ As Long
With Sheets("Лист2")
lngI = .Cells(.Rows.Count, 10).End(xlUp).Row 'определяем строку последней заполненной ячейки в J
lngJ = .Cells(.Rows.Count, 11).End(xlUp).Row 'определяем строку последней заполненной ячейки в K
.Range("G" & lngI & ":J" & lngI).AutoFill .Range("G" & lngI & ":J" & lngJ), xlFillValues
End With
End Sub