Rango valores variable para elaborar gráficos

Dentro del siguiente fragmento de código quisiera que el rango seleccionado previamente sirva como punto de partida para la elaboración del gráfico (no asignarlo a c2:d103 como valores fijos). ¿Cómo puedo hacer esto?
Sub Macro1()
' Macro1 Grafico histograma valores
' Keyboard Shortcut: Ctrl+q
'--------------------------------------------
Range("C2:D2").Select
Range(Selection, Selection.End(xlDown)).Select
'ActiveWindow.LargeScroll Down:=-4
nombre = ActiveSheet.Name
'--------------------------------------------
Charts.Add
ActiveChart.SetSourceData Source:=Sheets(nombre).Range("c2:d103"), PlotBy:=xlColumns
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.Location Where:=xlLocationAsObject, Name:=nombre
ActiveChart.HasTitle = True
ActiveChart.HasLegend = False
ActiveChart.HasDataTable = False
Selection.AutoScaleFont = False
Muchas gracias de antemano.
CD