Заполнение ячеек путем копирования заданной области

[Валера33]

Доброго времени суток, подскажите пожалуйста как сделать макрос который будет копировать определенную область(A2:H3) которая содержит информацию, затем отступать одну строку от края области и вставить скопированное ниже увеличив числовое значение ячейки (D2) на 1, вернее D2 ячейка была до копирование, после прогона она станет D4, затем D6 и тд. . Так нужно повторить 30 раз. Помогите плз... =)

[doober]

Можно так.

Sub Start()
    Dim X As Range
    With ThisWorkbook.Worksheets("Лист1")
        Set X = .Range("A2:H3")
        For n = 1 To 30
            X.Copy .Cells(2 * n + 2, 1)
            .Cells(2 * n + 2, 1) = X.Cells(1, 1) + n
        Next
    End With
End Sub

[Step_UA]

Sub Валера33()
    [a2:h3].Copy [a5:h64]
    Start = [d2]
    For i = 1 To 30
        Cells(i * 2 + 3, "D") = Start + i
    Next
End Sub