Macro de Gráficos Dinámicos

Hola a todos,
Espero que me puedan ayudar con el siguiente problema, estoy elaborando un reporte que contiene un gráfico dinámico y al variar los datos se pierden los formatos, realicé una macro que le da formato a las series, el problema viene cuando alguna serie no aparece por falta de datos.
El código que tengo es el siguiente:
ActiveChart.SeriesCollection(1).Select
With Selection.Border
.ColorIndex = 45
.Weight = xlThin
.LineStyle = xlContinuous
End With
With Selection
.MarkerBackgroundColorIndex = 45
.MarkerForegroundColorIndex = 45
.MarkerStyle = xlDiamond
.Smooth = False
.MarkerSize = 7
.Shadow = False
End With
ActiveChart.SeriesCollection(2).Select
With Selection.Border
.ColorIndex = 49
.Weight = xlThin
.LineStyle = xlContinuous
End With
With Selection
.MarkerBackgroundColorIndex = 49
.MarkerForegroundColorIndex = 49
.MarkerStyle = xlSquare
.Smooth = False
.MarkerSize = 7
.Shadow = False
End With
ActiveChart.SeriesCollection(3).Select
With Selection.Border
.ColorIndex = 14
.Weight = xlThin
.LineStyle = xlContinuous
End With
With Selection
.MarkerBackgroundColorIndex = 14
.MarkerForegroundColorIndex = 14
.MarkerStyle = xlTriangle
.Smooth = False
.MarkerSize = 7
.Shadow = False
End With
End Sub
De verdad espero que me puedan ayudar. Muchas gracias.
Saludos.