Visual Basic para Aplicaciones - macro en excell rango variable para grafico

Buenas tardes vereis tengo un problema, estoy haciendo una macro en la cual 1º hago un filtro de una serie de datos, estos logicamente varian segun por lo que filtres, y por tanto tambien el rango de la salida de este filtro , el caso es que con esos datos tengo que hacer una grafica pero no consigo que me varie el rango os incluyo parte del codigo para la grafica no esta todo, si me lo pudierais indicar con algun ejemplo os lo agradeceria Un saludo y gracias por adelantado
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Datos_Delegacion").Range("B1").CurrentRegion _
, PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:= _
"Gráfico_Delegacion"

Hola que tal. No se si has resuelto tu problema , si no lo has resuelto aun lo mismo te podria ayudar.
No he generado graficos mediante codigo pero ceo que deberias hacer un paso intermedio.
1º filtras los datos y lo copias y pegas en una hoja intemedia.
2º de esa hoja intemedia sacas el grafico.

No lo he probado pero es una idea.