Copy and insert X number of rows where X is based on a cell value

Question

I just wondered if anyone knew how to copy and insert X number of rows where X is based on a cell value? D18 has the number of rows I need inserting and Row 20 is the row I need to copy and insert that many times. Any help would be appreciated. Thanks

Answer 1

Try this out,

Sub insertRow()
Dim i As Long
For i = 1 To Range("D18").Value
    Range("A20").EntireRow.Insert
Next i
End Sub

Modify it if you need to..