Crear gráfica sin referencia a celdas

Deseo crear un gráfico en VBA, pero no con datos basados en hojas excel, sino que asignando valores directamente desde VBA. Por ejemplo

Sub generadordegráficos()
'
' generadordegráficos Macro
' Macro recorded 10/22/2014 by Patrick McColl
'

'
Range("B14").Select
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("Gráficos").Range("B14")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Gráficos!R6C2:R12C2"
ActiveChart.SeriesCollection(1).Values = "=Gráficos!R6C3:R12C3"
ActiveChart.SeriesCollection(1).Name = "=""prima"""

'ActiveChart.SeriesCollection(2).XValues = "=Gráficos!R6C2:R12C2" '"Estos valores deseo asignarlos directamente, no referenciados a las celdas.

'ActiveChart.SeriesCollection(2).Values = "=Gráficos!R6C4:R12C4"
'ActiveChart.SeriesCollection(2).Name = "=""sec"""
ActiveChart.SeriesCollection(2).XValues = (0) (10) 20, 30, 40, 50, 60, 70) '"Esta NO es la forma de hacerlo. Existe alguna? "

ActiveChart.SeriesCollection(2).Values = "=Gráficos!R7C4:R10C4"
ActiveChart.SeriesCollection(2).Name = "=""LíneA"""

Agradecido