перенос значений из шаблона с переменными в таблицу

[neirisn]

Добрый день!

Прошу помочь с макросом, в таблице выделила цветом ячейки, значения которых необходимо чтобы переносились из вкладки шаблон во вкладку план. И при внесении новых значений во вкладке шаблон, таблица продолжалась следующей строкой вниз.Шаблон.xlsx

[Zefyry]

Добрый день! Вот:

Sub copyCells()
    Dim a As Worksheet
    Dim arr As Variant
    Dim nRow As Long
    Set a = Sheets("ïëàí")
    ReDim arr(1 To 1, 1 To 6)
    arr(1, 1) = Cells(5, 8).Text
    arr(1, 2) = Cells(13, 8).Text
    arr(1, 4) = Cells(7, 8).Text
    arr(1, 5) = Cells(10, 8).Text
    arr(1, 6) = Cells(17, 8).Text
    nRow = a.Cells(3, 3).End(xlDown).Row + 1
    a.Range("C" & nRow & ":H" & nRow) = arr
End Sub

[neirisn]

Моя благодарность вам бесконечна! Спасибо, всех благ!