Como excluir el valor en cero del resultado de una macro

Tengo un inconveniente con mi macro, ella debe filtrar, sumar y remover los duplicados, y lo hace el inconveniente es que me muestra un espacio y deswpues resultados en cero y no se como quirtalo.

Esta es mi macro

Sub PEDIDO2()
'
' PEDIDO2 Macro
'
Dim lastrow As Long

lastrow = Range("D65000").End(xlUp).Row
'
Selection.AutoFilter
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveSheet.Range("$A$1:$M$8944").AutoFilter Field:=5, Criteria1:=">0"
Sheets("FD").Select
Cells.Select
Selection.ClearContents
Sheets("LISTADO MEDICAMENTOS").Select
Range("C1:E8186").Select
Selection.Copy
Sheets("FD").Select
Range("A1").Select
ActiveSheet.Paste
Range("D1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "CANTIDAD"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=SUMIF(C[-3],RC[-3],C[-1])"
Range("D2").Select
Selection.AutoFill Destination:=Range("D2:D" & ActiveSheet.UsedRange.Rows.Count)
Range("D2:D14").Select
Range("C1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("D1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Columns("C:C").Select
Application.CutCopyMode = False
Range("D2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range("$A$1:$D$4").RemoveDuplicates Columns:=1, Header:=xlYes
Columns("C:C").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("B4").Select
ActiveSheet.Range("$A$1:$C$14").RemoveDuplicates Columns:=1, Header:=xlYes
Range("A2").Select
Sheets("LISTADO MEDICAMENTOS").Select
ActiveSheet.ShowAllData
Range("D2").Select
End Sub