Como insertar un gráficos de puntos en visual basic que los datos salgan en una curva

He hecho un programa que de una extensa tabla, la reduce a una con los datos mas significativos, cogiendo solo los datos que son mayores de un intervalo.

Ahora quiero insertar un gráfico de puntos , en el que se interpole.

Mi problema es como hago para poner el rango del diagrama si puede ser variable el numero de datos que obtengo en la tabla.

Y como hacer para que la curva se dibuje bien , ya que ahora me toma dos curvas, una por el eje por y otra por el eje y.

La variable "j" es la que cuenta el numero de columnas que ha escrito antes.

Esta es la parte del programa:

Sheets("ReduceData").Select
RANGO = Range(Cells(1, 3), Cells(2, j))
Range("A3:B3").Select
Range(Selection, Selection.End(xlDown)).Select
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Sheets("ReduceData").Range(Cells(1, 3), Cells(2, j)), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Strain [%]"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Stress [MPa]"
.Legend.Delete
End With
ActiveChart.SeriesCollection(1).Select
End Sub