Dupplicate row X times (X = value in cell)

[Beachson]

I have a spreadsheet with up to 50,000 rows. Data spans from A1:BP50000

Each row has a value in column "E"

I would like each row to be duplicated X times ---> X = value in column "E"

If one row has a value of 5 in column "E", duplicate that row 5 times

If another row has a value of 2 in column "E", duplicate that row 2 times

If a row has a value of 0, do not duplicate OR do nothing

Can this be done through VBA?

Thanks for the help

 

[Fluff]

How about

Sub addrows()
   Dim i As Long
   
   Application.ScreenUpdating = False
   For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
      If Range("E" & i) > 1 Then
         Rows(i).Copy
         Rows(i).Resize(Range("E" & i).Value).Insert
      End If
   Next i
End Sub

With 50,000 rows of data, this will be slow.

 

[Beachson]

How about

Sub addrows()
   Dim i As Long
   
   Application.ScreenUpdating = False
   For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
      If Range("E" & i) > 1 Then
         Rows(i).Copy
         Rows(i).Resize(Range("E" & i).Value).Insert
      End If
   Next i
End Sub

With 50,000 rows of data, this will be slow.

Fluff, thank you. That did the trick. It took roughly 3 minutes to turn 30,000 rows into 100,000 rows on my machine. Which is a high end PC.