Looks like the fish are not biting! So, let's see if this code helps:-
Application.ScreenUpdating = False
Dim lRow As Long
lRow = Range("A" & Rows.Count).End(xlUp).Row
For Each cell In Range("A2:A" & lRow)
If cell.Value = Sheets("Order").Range("B1") Then
Sheets("Order").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
For Each cell In Range("A2:F" & lRow)
If cell.Value = 0 Then
cell.Value = ""
Application.ScreenUpdating = True
Application.CutCopyMode = False
I've attached a mock-up test work book for you to peruse here:-
In order to keep the code as simple as possible, you'll note in the test work book that both the "Data" and "Order" sheets are set up the same with the "Order" sheet clearly showing what each package holds. Perhaps, for the sake of simplicity, you could adapt the same method to your work book.
You'll also note that I've taken the liberty to introduce an "Item ID" in Column A. Type this ID in the search box (B1) in the "Order" sheet to find the relevant item in the "Data" sheet (I just got lazy and couldn't be bothered typing in the whole item description, hence the shortened ID description). If you don't need it, it can be removed.
I hope that this helps.