Chart macro

Hey everyone. I'm trying to make a scatterplot so what I did was recorded a macro and now I want to be able to update it using a for-loop. Here's my code.

Charts.Add.Name = "Chart"
ActiveChart.ChartType = xlXYScatterLines

For counter2 = 2 To numEntries

     'Some other stuff right here

     If Cells(counter2, 1) <> Cells(counter2 + 1, 1) Then
            bool2 = False
            Sheets("Chart").Select
            ActiveChart.SeriesCollection.NewSeries
            With ActiveChart
                .Name = ActiveSheet.Cells(position2, 1)
                .Values = ActiveSheet.Range(position2 & "6:" & counter2 & "6")
                .XValues = ActiveSheet.Range("A4:A14")
            End With

            
            Sheets("Temporary").Select
        End If
    Next

My problem is with the three lines of .Name, .Values, and .XValues. When I run, I get a compile error of Method or Data Member Not Found.

I need to be able to create a new series each time the if-statement is run through and change the name, y-vals, and x-vals of the series according to my variables of counter2 and position2. Help me please!

Try this

            with ActiveChart.SeriesCollection.NewSeries
                .Name = ActiveSheet.Cells(position2, 1)
                .Values = ActiveSheet.Range(position2 & "6:" & counter2 & "6")
                .XValues = ActiveSheet.Range("A4:A14")
            End With

If not post example workbook

That fixed my compile error, but now I get a new one:

Run-Time Error '438':
Object doesn't support this property or method.

Example workbook attached. Scroll down to the GRAPH comment.

Chart sheets do not have a cells property.

try this revised code

        bool2 = True
        
        If Cells(counter2, 1) <> Cells(counter2 + 1, 1) Then
            bool2 = False
            Sheets("Chart").Select
            ActiveChart.SeriesCollection.NewSeries
            With ActiveChart.SeriesCollection.NewSeries
                .Name = Sheets("Temporary").Cells(position2, 1)
                .Values = Sheets("Temporary").Range(Sheets("Temporary").Cells(6, position2), Sheets("Temporary").Cells(6, counter2))
                .XValues = Sheets("Temporary").Range("A4:A14")
            End With

            
            Sheets("Temporary").Select
        End If
    Next
    
    Sheets("Chart").Select