Vba 如何创建循环以将数据系列添加到图表？

我想为Excel 2016创建一个宏，该宏通过向图表添加系列数据来循环。我需要有关创建循环的帮助，目前我正在手动编写它，因为我创建循环的尝试没有成功。长途跋涉代码如下所示：

Sub Button1_Click()

    ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmoothNoMarkers).Select
        ActiveChart.SeriesCollection.NewSeries
        ActiveChart.FullSeriesCollection(1).Name = "='TO DP Compressor 
Maps'!$A$3"
        ActiveChart.FullSeriesCollection(1).XValues = _
        "='TO DP Compressor Maps'!$B$4:$B$23"
        ActiveChart.FullSeriesCollection(1).Values = _
        "='TO DP Compressor Maps'!$C$4:$C$23"

        ActiveChart.SeriesCollection.NewSeries
        ActiveChart.FullSeriesCollection(2).Name = "='TO DP Compressor 
Maps'!$D$3"
        ActiveChart.FullSeriesCollection(2).XValues = _
        "='TO DP Compressor Maps'!$E$4:$E$23"
        ActiveChart.FullSeriesCollection(2).Values = _
        "='TO DP Compressor Maps'!$F$4:$F$23"

        ActiveChart.SeriesCollection.NewSeries
        ActiveChart.FullSeriesCollection(3).Name = "='TO DP Compressor 
Maps'!$G$3"
        ActiveChart.FullSeriesCollection(3).XValues = _
        "='TO DP Compressor Maps'!$H$4:$H$23"
        ActiveChart.FullSeriesCollection(3).Values = _
        "='TO DP Compressor Maps'!$I$4:$I$23"

End Sub

如您所见，模式会重复自身。有人能帮我建立一个循环吗

非常感谢，例如：

Sub Button1_Click()
    ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmoothNoMarkers).Select
    Dim i As Long
    With ActiveChart
        For i = 1 To 3
            With .SeriesCollection.NewSeries
                .name = "='TO DP Compressor Maps'!" & Range("$A$3").Offset(, (i - 1) * 3).Address
                .XValues = "='TO DP Compressor Maps'!" & Range("$B$4:$B$23").Offset(, (i - 1) * 3).Address
                .values = "='TO DP Compressor Maps'!" & Range("$B$4:$B$23").Offset(, (i - 1) * 3 + 1).Address
            End With
        Next
    End With
End Sub