извиняюсь за беспокойство (больше не буду постить на двух форумах), отпишусь Юрий М, еще раз спасибо.

в первую очередь читал этот форум.
Спасибо Bond все работает супер.

задача скопировать строку с формулами, значениями и вставить ее под скопированную строку столько раз сколько будет стоят в  ячейке H1

H1

Есть макрос, подскажите пожалуйста какую нужно добавить команду что бы данный макрос запускался столько, сколько стоит в определенной ячейке ( то есть кол-во повторов по значению из ячейки) .

Sub Копи_строк()
'
' Копи_строк Макрос

   Rows("15:15").Select
   Selection.Copy
   A_LastRow = Cells(Rows.Count, 1).End(xlUp).Select + 1
   Selection.Insert Shift:=xlDown

End Sub