Visual Basic para Aplicaciones - problemas en visual + excel

hola amigos, estoy comenzando a utilizar visual basic junto con excel, y tengo un problema que no se como arreglar.

manejo unos datos en excel, y quiero hacerles un estudio para obtener unos datos, y hacer un grafico, me resulta bien lo del grafico, mi problema es que quiero optimizar el programa.

me explico, para colocar una nueva serie dentro de grafico hago lo siguiente

activechart.seriescollection.newseries ' agrego una serie
activechart.seriescollection(2).values=Hoja!R2C2:R20C2 'seteo la serie

el problema es que son como 30 series, o sea que tengo algo asi:

activechart.seriescollection.newseries ' agrego una serie
activechart.seriescollection(2).values=Hoja!R2C2:R20C2 'seteo la serie

activechart.seriescollection.newseries ' agrego una serie
activechart.seriescollection(3).values=Hoja!R21C2:R39C2 'seteo la serie

activechart.seriescollection.newseries ' agrego una serie
activechart.seriescollection(4).values=Hoja!R40C2:R57C2 'seteo la serie

activechart.seriescollection.newseries ' agrego una serie
activechart.seriescollection(5).values=Hoja!R58C2:R76C2 'seteo la serie

lo que quiero hacer es meter el codigo dentro de un loop pero no se como dejar variable los R para que me vaya tomando los mismos valores.

que quede algo asi

for
activechart.seriescollection.newseries ' agrego una serie
activechart.seriescollection(2).values=Hoja!RnC2:Rn+18C2 'seteo la serie
n=n+18
end for

si alguien sabe como puedo hacer eso estaria muy agradecido, capaz que la respuesta sea muy facil, pues aun me faltan muchas cosas por aprender

se agradece cualquier aporte

atte

claudio

probá con algo así:

Dim x&, y&, i%
x = 2
y = 20
For i = 1 To 30
ActiveChart.SeriesCollection.NewSeries ' agrego una serie
ActiveChart.SeriesCollection(2).Values = Range("Hoja!R" & x & "C2:R" & y & "C2")
x = x + 18
y = y + 18
Next

Saludos desde Baires, JuanC