grafica

Sub grafica()
Range("M10").Select
Range(Selection, Selection.End(xlDown)).Select
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Simulador").Range("M10:M50")
ActiveChart.Location Where:=xlLocationAsObject, Name:="Simulador"
End Sub

****

Como hago para que en el RANGO que dice M10 a M50, pues sea lo que dice en
las primeras lineas, que abarque hasta el final de la seleccion?,
Selection.End

Gracias