You mean it should be this correct?
No.
You left in the old code.
I just modified the code from the sheet ptmuldoon posted.
Credit to ptmuldoon for helping you and I would hope you would press the Add Reputation button in the lower left hand corner of one of ptmuldoon's posts.
This is a behavior that I became aware of the hard way and ptmuldoon may be unaware of it.
Sub AddToReport()
Dim i As Long, NextRow As Long
Dim NextAmount As Long, NextDescription As Long
'Get Next/Last Row
NextRow = Sheets("Report").Range("C:C").Find(What:="*", LookIn:=xlValues, SearchDirection:=xlPrevious).Row
NextAmount = 19
NextDescription = 21
For i = 1 To 10
'Copy Order Details to Report
'Row Offset to next item
Sheets("Report").Range("R" & NextRow + i) = Sheets("Order Details").Range("B" & NextAmount) 'Prod Name
Sheets("Report").Range("Q" & NextRow + i) = Sheets("Order Details").Range("C" & NextAmount) 'Item Num
Sheets("Report").Range("F" & NextRow + i) = Sheets("Order Details").Range("D" & NextAmount) 'Amount
Sheets("Report").Range("H" & NextRow + i) = Sheets("Order Details").Range("D" & NextDescription) 'Quantity
Sheets("Report").Range("S" & NextRow + i) = Sheets("Order Details").Range("B" & NextDescription) 'Item Description
'Copy Order Summary Data to each line of Detail Added
Sheets("Report").Range("A" & NextRow + i) = Sheets("Order Summary").Range("C7") 'Consultant
Sheets("Report").Range("C" & NextRow + i) = Sheets("Order Summary").Range("C17") 'Code
Sheets("Report").Range("D" & NextRow + i) = Sheets("Order Summary").Range("D17") 'Client
NextAmount = NextAmount + 8
NextDescription = NextDescription + 8
Next i
End Sub
Bookmarks