Resize is not working for dynamic data.Resize is not working for dynamic data. Please help
Dim objCh As ChartObject
Dim ch As Chart
Dim Srs As Series
Set objCh = ActiveSheet.ChartObjects("Chart 1")
Set ch = objCh.Chart
ch.ChartType = xlXYScatterSmoothNoMarkers
Set Srs = ch.SeriesCollection.NewSeries
For j = 1 To 5
For i = 1 To 5
Srs.XValues = ActiveSheet.Range(Cells(1, 3 * j - 1)).Resize(i + 1)
Srs.Values = ActiveSheet.Range(Cells(1, 3 * j)).Resize(i + 1)
Next i
Next j