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

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

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

End Sub