I have an inventory list that will end up being ~60k rows of data based on the sum of Col1.
tab name - "inventory"
Col1 - original quantity
Col2 - control number (similar to a SKU)
Col3 - category
Col4 - description of item
to start there is 3064 rows which have quantities that range from 1 to 1001
If possible, i'd need a VB code or macro that will take Row2 and insert enough rows below to satisfy the quantity in Col1 Row2 but whilst doing so, copying the data in Col2, Col3 and Col4 in to the new rows
IF anyone could help, I'd be very grateful and if needed I'll venmo/cashapp you $15
Sub RunMe()
Dim mQ, y As Integer, x As Long
Application.ScreenUpdating = False
x = 2
Do
mQ = Range("A" & x).Value - 1
If mQ <> 0 Then
For y = 1 To mQ
Rows(x).Copy
Rows(x + 1).Insert
Next y
Range(Cells(x + 1, "A"), Cells(x + mQ, "A")).ClearContents
End If
x = x + mQ + 1
Loop Until Range("A" & x).Value = vbNullString
Application.ScreenUpdating = True
End Sub
