Do Not Plot Zeros In Graph With Macros

Im working on a graph that uses the code below to plot the series

Sub AddDataToMyChart( Name As Range, XData As Range, YData As Range)

With ActiveChart
With .SeriesCollection.NewSeries
.XValues = XData
.Values = YData
.Name = Name
End With
End With

End Sub
Sub Test()

Dim lngTopRow As Long
Dim lngBottomrow As Long
Dim lngCol As Long

lngTopRow = 3
lngBottomrow = 8
ActiveSheet.ChartObjects(1).Activate

With ActiveSheet
For lngCol = Range("D2").Column To Range("h2").Column Step 2
AddDataToMyChart .Cells(2, lngCol), .Range(.Cells(lngTopRow, lngCol), .Cells(lngBottomrow, lngCol)), _
.Range(.Cells(lngTopRow, lngCol + 1), .Cells(lngBottomrow, lngCol + 1))
Next
End With

End Sub
...