Macros - Gráficos con datos variables

¿Quién me puede ayudar?
Les cuento:
Tengo una hoja con columnas de datos por ejemplo columna A valores en POR y columnas B y siguientes los valores en abscisas para cada serie de datos.
Mi problema es que al armar el macro yo no sé la cantidad de series que voy a disponer, por lo que estoy tratando de generar una variable algo así:
-------------------------------------------------CÓDIGO----------------------------
Dim NUMERO As Integer
NUMERO = 2
Dim NUMERO2 As Integer
NUMERO2 = 1
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SeriesCollection.NewSeries
Do
If IsEmpty(ActiveCell) = False Then
ActiveChart.SeriesCollection(NUMERO2).Value = "=Grafico!R5C" & NUMERO & ":R231C" & NUMERO
ActiveChart.SeriesCollection(NUMERO2).Name = "=GRAFICO!R4C" & NUMERO
NUMERO = NUMERO + 1
NUMERO2 = NUMERO2 + 1
ActiveCell.Offset(0, 1).Select
End If
Loop Until IsEmpty(ActiveCell) = True
----------------------------------------------CÓDIGO------------------------
Con las variables NUMERO y el loop busco todas las columnas que contengan datos y la variable NUMERO2 corresponde al número de serie, pero cuando lo corro me sale el siguiente error:
OBJECT DOESN´T SUPPORT THIS PROPERTY OR METHOD
¿Alguna ayuda...? ¿Otra manera de generar gráfico de líneas con una cantidad de series desconocidas...?

{"Lat":-35.8534396195918,"Lng":-58.9306640625}