Copy Paste Special Values Question:
Below is the code
Sheets("Packet").Range("C4").Copy
Sheets("Track Packet").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
The problem I am having is that if nothing is in Range C4 on any given day then it writes a blank. Then the next day the offset is is pasting whatever is in C4 that day into the previous days' row. How can I force it to include a zero if the copied cell is blank, thus insuring that the offset will remain true day to day?
Below is the code
Sheets("Packet").Range("C4").Copy
Sheets("Track Packet").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
The problem I am having is that if nothing is in Range C4 on any given day then it writes a blank. Then the next day the offset is is pasting whatever is in C4 that day into the previous days' row. How can I force it to include a zero if the copied cell is blank, thus insuring that the offset will remain true day to day?