Copy + Paste A Row x Times Based On Cell Value

[JIMBOB77]

Hi
I am looking for VBA code for the following.
I need to copy the current row and insert it "x" number of times.
The "x" value is the value in cell A1.
The copied rows will be inserted in the cells above the current row

Thanks

 

[Fluff]

Something like

Sub jimbob77()
   ActiveCell.EntireRow.Copy
   ActiveCell.EntireRow.Resize(Range("A1").Value).Insert
End Sub

 

[JIMBOB77]

Thanks Fluff
Slight Alteration
What If The x Value Is In A Separate Sheet (Same Workbook)
Sheet Name = Import
Cell = J11

 

[mskusace]

I believe this will do it. I just tried it and it worked in the few tests I did.

Sub jimbob77()
    Dim import As Worksheet
    
    Set import = Sheets("Import")
    
   ActiveCell.EntireRow.Copy
   ActiveCell.EntireRow.Resize(import.Range("J11").Value).Insert
End Sub

 

[Fluff]

Another way

Sub jimbob77()
   Dim x As Long
   
   x = Sheets("Import").Range("J11").Value
   ActiveCell.EntireRow.Copy
   ActiveCell.EntireRow.Resize(x).Insert
End Sub