Rango de ejes en gáfico con Macros

Estimados:

Necesito hacer un gráfico con macros y no sé cómo abordarlo. La idea es que es vez de las clásicas lineas:

ActiveChart.SeriesCollection(1).XValues = "=Hoja1!$B$4:$B$17"
ActiveChart.SeriesCollection(1).Values = "=Hoja1!$C$4:$C$17"

no se consideren las variables fijas, me explico, que en reemplazo de "=Hoja1!$B$4:$B$17" exista una función que seleccione un rango que se encuentre activo de la columna "B". Esto es, que se realice un gráfico de acuerdo al rango elegido.

Saludos expertos