вставить строки макросом

[horpenst]

Помогите написать макрос, для выполнения следующей задачи:

В ячейках А1:A10 расположены числа от одного до десяти.
Необходимо вниз от каждой ячейки вставить по 5 ячеек с тем же числом.

То есть:

было 1
2
3
...

после запуска макроса должно стать 1
1
1
1
1
2
2
2
...

Заранее благодарю

[SAS888]

Странно... Вы просите добавить по 5 ячеек, а в примере результата показываете 3 добавленных. Как все-таки нужно?
Ну, в общем, посмотрите макрос и доработайте так, как Вам требуется.

Sub Main()
    Dim i As Long, x As Range: Application.ScreenUpdating = False
    For i = 2 To 60 Step 6
        Set x = Range(Cells(i, 1), Cells(i + 4, 1)): x.Insert xlDown
        Set x = x.Offset(-5): x.FormulaR1C1 = "=R[-1]C": x.Value = x.Value
    Next
End Sub

[R Dmitry]

или так, если строки вставлять не надо а получить массив чисел

Sub horpenst()
Dim  a(), x&,i&, c&
c=6' сколько чисел должно быть
a = [a1:a10].Value
x = 1
For i = 1 To UBound(a)
Range(Cells(x, 1), Cells(x + c, 1)) = a(i, 1)
x = x + c
Next
End Sub