Sub test()
Dim LR As Long, i As Long
With Sheets("Sheet1")
LR = .Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LR
.Rows(i).Copy Destination:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(.Range("E" & i).Value)
Next i
End With
End Sub
I have been using this same quantity duplicator macro for a little over 3 years now, and I have never had any issues. Yesterday was the first time I have had to use it after several months, and I got this error. When I click debug, it highlights this row:
.Rows(i).Copy Destination:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(.Range("E" & i).Value)
Can anybody take a look at this and see what the problem could be?
Thank you for your time and input,
Aaron