Sub vba_add_row()
Dim iRow As Long
Dim iCount As Long
Dim i As Long
iCount = InputBox(Prompt:=“How many rows you want to insert?”)
iRow = InputBox _
(Prompt:=“Before which row you want to insert rows? (Enter the row number)”)
For i = 1 To iCount
Rows(iRow).EntireRow.Insert
Next i
End Sub