同一のグラフに複数のデータを重ね書きしたい

前提・実現したいこと

エクセルを用いて、同一のグラフに複数のデータを重ね書きしたいです。

下のような表からグラフを作成したく、
Aのデータ(X軸をAX,Y軸をAY)、Bのデータ(X軸をBX,Y軸をBY)・・・(空欄まで繰り返し)を
一つのグラフに重ね書きできればと思っています。

AX AY BX BY CX CY ・・・
1 6 3 2 2 12
2 5 4 7 3 14
3 2 5 8 4 16
4 7 6 7 5 17
5 8 7 10 6 19
・
・
・

発生している問題・エラーメッセージ

グラフの追加をマクロとして記録し、そのコードの参照先を手動で変えながらコピペしていく、と泥臭くやっていましたが、
データが多くなるにつれ記入が手間になっています。
また、X軸Y軸の終点を暫定で1000番目のセルまでとしていますが、空欄まで繰り返し、という記述にしたいです。

該当のソースコード

  Range("A2:B8").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=57
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
    ActiveChart.SetSourceData Source:=Range("全データ!$A$2:$B$1000")
    ActiveChart.SeriesCollection(2).Name = "=全データ!$B$1"
    
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).Name = "=全データ!$D$1"
    ActiveChart.SeriesCollection(2).XValues = "=全データ!$C$2:$C$1000"
    ActiveChart.SeriesCollection(2).Values = "=全データ!$D$2:$D$1000"
    
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).Name = "=全データ!$F$1"
    ActiveChart.SeriesCollection(2).XValues = "=全データ!$e$2:$e$1000"
    ActiveChart.SeriesCollection(2).Values = "=全データ!$f$2:$f$1000"