Как сделать график с каждой строкой, включенной отдельно

Question

Как сделать скрипт VBA, чтобы он включал все строки в граф. график разбросан, поэтому я не могу добавить диапазон строк, мне нужно иметь аргумент For и включать все строки со значениями X и Y соответственно.

Я плохо программирую, поэтому попробовал несколько макросов, но это не помогло.

    Dim i As Integer, k As Integer
    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("page1")
    For i = 4 To 155
        For k = 1 To 155    
            ActiveSheet.Shapes.AddChart2(240, xlXYScatter).Select
            ActiveSheet.Shapes.AddChart2(240, xlXYScatter).Select

            ActiveChart.FullSeriesCollection(k).Name = ActiveSheet.Cells(i, 1)
            ActiveChart.FullSeriesCollection(k).XValues = ActiveSheet.Cells(i, 2)
            ActiveChart.FullSeriesCollection(k).Values = ActiveSheet.Cells(i, 3)
            k = k + 1
            i = i + 1
        Next k
    Next i  
End Sub