VBA Copy Paste Values Offset

[lager1001]

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?

 

[Fluff]

How about

With Sheets("Track Packet").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
   If Sheets("Packet").Range("C4") = "" Then
      .Value = 0
   Else
      .Value = Sheets("Packet").Range("C4").Value
   End If
End With

 

[lager1001]

How about

With Sheets("Track Packet").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
   If Sheets("Packet").Range("C4") = "" Then
      .Value = 0
   Else
      .Value = Sheets("Packet").Range("C4").Value
   End If
End With

This is working!. Thank you!

 

[Fluff]

You're welcome & thanks for the feedback.