【エクセルマクロ】各シートからデーターをひっぱってグラフを重ねたいです。

できている事
まず"DATA"シートのH1から数値を取得して、その数値分シートを作成し、シート名をB2から下へ順に文字列を取得しそれぞれ変更していきます。
次にH1に記入した数値分C2から下へと記入してあるパス先からブックを開いていき､コピーしてB列にある文字列と同じシート名のシートに貼り付けていきます。
ここまではマクロで完成しています。

やりたい事
"Grapf"シートにて、"G-T"というボタンを押したら各シートから"A1014:A3014, B1014:B3014"をデーター範囲を取得して散布図のひとつのグラフにまとめたいです。

![

完成系は下図のようにしたいです。



Sub GrapfGT()
    Dim op As Workbook, slt As String, i As Integer, slt1 As String
    Dim cht As ChartObject
    Dim rng As Range

    Set op = Workbooks("CAB-Grapf.xls")
       slt = op.Worksheets("DATA").Range("H1").Value
      slt1 = op.Worksheets("DATA")
    Application.ScreenUpdating = False

    'グラフ作成
    Set cht = ActiveSheet.ChartObjects.Add(100, 100, 600, 200)
    cht.Chart.ChartType = xlXYScatterSmooth

    'データ取得ループ>"Grapf"シートから"DATA"シートへ移行してH1セルの数値を取得。
          For i = 1 To slt
              If i > 10 Then
                  MsgBox "データーがそんなにないよ(V)o￥o(V)"
                  Exit For
              End If
          'データ範囲の取得>"DATA"のB列からシート名を取得し、その名前のシート先で("A1014:A3014, B1014:B3014")のデータ範囲を取得
          Set rng = Sheets(slt1.Range("B" & i + 1).Value).Range("A1014:A3014, B1014:B3014")
        'グラフにデータソースを設定
        cht.Chart.SetSourceData Source:=rng
    Next
End Sub