Como graficar con rangos variables

Escribo para ver si me pueden ayudar, tengo una gráfica que tiene la siguientes líneas para hacer una gráfica
ActiveChart.SetSourceData Source:=Range("D7:AD10,D" & Target.Row & ":AD" & Target.Row)
funciona bien con mi grafica, pero yo quier cambiar de rangos es decir:
ActiveChart.SetSourceData Source:=Range("H7:AD10,H" & Target.Row & ":AD" & Target.Row)
o
ActiveChart.SetSourceData Source:=Range("K7:AD10,K" & Target.Row & ":AD" & Target.Row)
Puedo hacerlo manualmente, pero yo quiero que se cambien automáticamente, es decir que si yo pongo una valor an la celda "A1" por ejemplo "P7"
Y en "A2" pondria "P"
Se cambien en:
ActiveChart.SetSourceData Source:=Range("P7:AD10,P" & Target.Row & ":AD" & Target.Row)
¿No se como hacerle?