вставить данные в активные ячейки

Question

Я пишу очень простой код

Sub copy_unibeton_muss()
Worksheets("source").Range("a8:c8").Copy
End Sub

Код будет копировать диапазон A8:C8.Я добавил еще одну часть для вставки активных ячеек в активный выбранный диапазон.

Destination:=ActiveCell

Но, к сожалению, код вставляет только данные в первой строке только.Мне нужно вставить данные во все выбранные диапазоны: 5x3 или 6x3 , что бы мне ни понадобилось.

Answer 1

Использовать

Worksheets("source").Range("a8:c8").CopY Destination:= Selection

Это будет работать так, как ожидалось, если выбор имеет такое же количество столбцов скопированного диапазона