Copy & insert the currently selected row of data multiple times

[georgiboy]

Hi Scawtt,

Welcome to the forum.

Out of interest, which version of Excel do you use: 2016, 2021, 365?

If you are using Excel 365 for example then the below will do it:

Sub Test()
    Dim r As Long, str As String, rpt As Long, s As Variant  
    r = ActiveCell.Row
    str = Cells(r, 1)
    rpt = Cells(r, 2)  
    Rows(r + 1 & ":" & r + (rpt - 1)).Insert
    With Application
         s = .Sequence(rpt, , 1, 0)
         Cells(r, 1).Resize(rpt) = .Rept(str, s)
         Cells(r, 2).Resize(rpt) = s
    End With
End Sub