Извеняюсь у меня сейчас стоит задача. Например существует массив большой и в нем много данных мне нужно создать с определенным шагом и скопировать строку стоящюю ниже новосоздоваемой. Какой макрос применить для таких дел ?  
Пример:  
До:  
1111111111111  
2222222222222  
3333333333333  
4444444444444  
....  
После макроса:  
1111111111111  
1111111111111  
2222222222222  
3333333333333  
3333333333333  
4444444444444  
.....  
Помогите пожалуйста как это осуществить макросом и еще нужно что все строки при копирование сохраняли все формулы и все данные, и чтобы макрос спрашивал диапазон

Господа и дамы вот не могу справиться с поставленной задачей. Нашел макрос:  
 
Sub InsertRows()  
 
Dim i As Long, nRow As Long  
 
Dim k As Integer, x As Integer  
 
With Application  
 
.ScreenUpdating = False  
 
.Calculation = xlCalculationManual  
 
nRow = Cells(Rows.Count, "A").End(xlUp).Row  
 
k = InputBox("Рома введи колличество строк для вставки между строками", , 1)  
 
x = InputBox("Рома введи шаг вставки строк", , 1)  
 
For i = nRow To 2 Step -x  
 
Cells(i, 1).Resize(k).EntireRow.Insert  
 
Next i  
 
.Calculation = xlCalculationAutomatic  
 
.ScreenUpdating = True  
 
End With  
 
MsgBox "Ура строки добавлены!", vbInformation, "Вставка строк"  
 
End Sub  
 
 
Теперь о проблеме .... что нужно прописать чтобы макрос работал в определенном диапазоне а то он только добавляет строки по всему листу. Заранее спасибо :-)