Grafo de dispersión, agregar diferentes series a través de un macro

Hola,

Estoy usando un macro para generar un gráfico de dispersión, el cuál creo con :

ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlXYScatter

ActiveChart.SetSourceData Source:=Range("Principal!$C$1:$D$21")

Y lo coloco en una hoja nueva con :

ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Gráfico"</span>

Hasta aquí todo muy bien, pero cuando quiero agregar mas series, no me lo permite, trate de usar esto :

++++++++++++++++ Agregar más grupos

ActiveChart.SeriesCollection.NewSeries

ActiveChart.SeriesCollection(1).XValues = "C485:C500"

ActiveChart.SeriesCollection(1).Values = "D485:D500"

Y me marca error. No comprendo porque falla.

Agregó que el código para agregar funciona en un office sobre windows, pero yo uso office en mac y no me lo permite, incluso, si grabo el macro donde agrego las series adicionales, no me genera código al respecto.

Espero puedan ayudarme. De ante mano, muchas gracias.

Saludos !