tengo el siguiente codigo, le he dado muchas vueltas y na, espero me puedan echar una manita

range("A1").CurrentRegion.SpecialCells(xlVisible). Select

Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("A2:G14"), PlotBy:= _
xlColumns

¿como puedo hacer para que la seleccion que hacemos en la primera linea de codigo sea la que tome en cuenta en la parte de codigo que dice .Range("A2:G14), para que este no sea un valor fijo, sino que dependa de la seleccion del rango que hayamos echo inicialmente.

Agradeciendo la colaboracion,
Julio Canel