copy & insert row n times

[tomtomsf]

Hi Excel Users,

I need a macro that will copy a row to "n" number of identical rows below it, depending on user input. I am not skilled at VBA but I cobbled together some code I found online (see below). Unfortunately, it does not work properly. The input box pops up, but it only copies one new row regardless of what number you enter. Can anyone kindly help me out with this?

Tom G.

Sub InsertCopyRow2()
If vRows = 0 Then
vRows = Application.InputBox(prompt:= _
"How many rows do you want to add?", Title:="Add Rows", _
Default:=1, Type:=1) 'Default for 1 row, type 1 is number
If vRows = False Then Exit Sub
End If
ActiveCell.Offset(1, 0).EntireRow.Insert
ActiveCell.EntireRow.Copy ActiveCell.Offset(1, 0).EntireRow
End Sub

 

[VikasMExcel]

Thanks It works perfectly.

 

[meldoc]

You're welcome.

 

[t5timesb]

This code works for 1 cell in column A, but how do I apply it to all items in column a, so it copies "n" of times.

Sub test()
Dim x As Integer
x = Application.InputBox("Number of Rows", "Number of Rows", Type:=1)
If x = False Then Exit Sub
ActiveCell.EntireRow.Copy
Range(ActiveCell.Offset(1), ActiveCell.Offset(x)).EntireRow.Insert
Application.CutCopyMode = False
End Sub