Ok, I decided to move quantity to the final column & changed the macro as follows:

Sub Repeat_x()

Dim x, i As Long, NR As Long, LR&

With Sheets("Sheet1")
LR = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
x = .Range("A1:F" & LR)
End With
NR = 2
Application.ScreenUpdating = False
With Sheets("Sheet2")
For i = 2 To UBound(x, 1)
If (x(i, 6)) > 0 Or IsError(x(i, 6)) Then
.Cells(NR, "A").Resize(CLng(x(i, 6)), 6) = Array(x(i, 1), x(i, 2), x(i, 3), x(i, 4), x(i, 5), x(I, 6))
NR = NR + x(i, 6)
End If
Next i
Application.ScreenUpdating = True
End With
End Sub


This appears to be working.

Thank you so much for your assistance. God bless you