Grafico por medio de Macro

Buenas Tengo una macro la cual selecciona un rango de datos y inserta una grafica sencilla
aqui pongo el codigo de la macro
Macro4 Macro
'
'
Range("A1:B13").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'basecategoria'!$A$1:$B$13")
ActiveChart.ChartType = xlColumnClustered
Range("E7").Select
el problema es que el rango puede variar ya que proviene de una importacion de datos de access , como puedo volver el rango dinamico dependiendo de los datos que llegan a la hoja de datos
muchas gracias por su colaboracion