Leere Zelle killen

Worksheets("Tierbestand").Range("d26:o37").Copy
ThisWorkbook.Worksheets("Tierbestand").Range ("d26:o37").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=True
Application.CutCopyMode = False

Es werden dabei aber auch leere Zellen mit übertragen. Soweit kein Problem aber einige der kopierten Zellen führen in weiteren Berechnungen zum Fehler #Wert!. Nun habe ich versucht diese leeren Zellen mit Nullen zu füllen:

For Each c In ThisWorkbook.Worksheets("Tierbestand").Range("d26:o37")
If c.Value > 0 Then c.Value = c.Value Else c.Value = 0
If c.Value = "" Or c.Value = " " Then c.Value = 0
Next c

Das hilft aber nur bei einigen leeren Zellen und nicht bei allen. Wie bekommt man diese echt leeren Zellen weg???