Graficar unos rangos seleccionados Macro

Hola.
Lo que quiero hacer es un macro que grafique los ultimos n datos de una tabla cuyos datos se agregan manualmente. Lo que llevo hasta el momento es lo siguiente:
Dim Numdatos As Integer
Dim Datos As Object
Set Datos = Worksheets("Datos")
Numdatos = Sheets("Hoja3").Cells(6, 3).Value
Sheets("Datos").Select
Set a = Range(ActiveSheet.Range("C12").End(xlDown).Offset(-Numdatos + 1, 0), Range("C12").End(xlDown))
Set b = Range(ActiveSheet.Range("F12").End(xlDown).Offset(-Numdatos + 1, 0), Range("F12").End(xlDown))
Set c = Range(ActiveSheet.Range("G12").End(xlDown).Offset(-Numdatos + 1, 0), Range("G12").End(xlDown))
Union(a, b, c).Select
ActiveSheet.ChartObjects("2 Gráfico").Activate
ActiveChart.ChartArea.Select
'ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues =
ActiveChart.SeriesCollection(1).Values =
End Sub
Lo que quiero saber es como colocar esos rangos seleecionados en el ActiveChart.SeriesCollection(1).XValues = para el caso de a y ActiveChart.SeriesCollection(1).Values = para el caso de b