Multiple Charts

[VBAhack]

Welcome to the forums.

I ran the following small scale prototype of what you are doing and it works ok. There are 12 rows of data (rows 1-12) and 6 columns (A-F). Each plot contains 3 rows of data for a total of 4 charts.

Sub ChartTest()
    Dim aaaRow As Integer, bbbRow As Integer, incr As Integer, myLastRow As Integer
    Dim myRange As String
    incr = 2
    aaaRow = 0
    bbbRow = 0
    myLastRow = 10
    
    While aaaRow < myLastRow
        aaaRow = bbbRow + 1
        bbbRow = aaaRow + incr
        myRange = "A" & aaaRow & ":F" & bbbRow
        Charts.Add
        With ActiveChart
            .ChartType = xlXYScatterSmooth
            .SetSourceData Source:=Sheets("Sheet1").Range(myRange)
            .Location Where:=xlLocationAsObject, Name:="Sheet1"
        End With
    Wend
End Sub