Cambiar rango de un gráfico

Tengo una tabla de donde se desprende un gráfico en otra hoja, tengo un macro que dependiendo el número de filas de la tabla, gráfica más o menos valores, algo así:

ActiveChart.SetSourceData Source:=Sheets("puerta").Range("A10:P89")

Lo que quiero hacer es que el rango comience en A10 y termine en la columna P, pero la coordenada de P final, depende de la ultima fila con valores (puede ser P20, P123, etc etc)