Enter rows automatically by accepting a number

[asokaw]

Hi
I need to accept a number to cell A1 & insert that number of rows to a set of data already typed

need to extend this feature to all the cells in that row

Assume I have already entered data for rows 2 - 20 & when I enter 3 in cell A1 it should insert 3 new blank rows before row 2. & another number in A3 again it should enter that many rows starting from A4 Need a simple macro to do this

 

[RMS123]

A1:

Sub Insertrows1()Dim i As Long


i = Range("A1") + 1


    Rows("2:" & i).Insert
  
End Sub

A3:

Sub Insertrows2()
Dim i As Long


i = Range("A3") + 3


    Rows("4:" & i).Insert
  
End Sub