Crear gráfico con número de barraras diferente cada vez

[José María Aguilar]

Hola, estoy intentado realizar una gráfica, que al obtener los datos cada vez sea distinta, en este ejemplo llega hasta el M13, pero en ocasiones cogerá menos datos, por ejemplo el D13.

ActiveSheet.Shapes.AddChart.Select

ActiveChart.ChartType = xlColumnClustered

ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("B12:M13")

Para poder variar el numero de la fila he intentado usar cells pero me da error y no se como usar cells en este caso, os pongo lo que he realizado.

i=13

ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range(Cells(12, 2), Cells(13, i))

Supongo que será algo bastante fácil, pero no doy con la tecla.

Un saludo y gracias