vba excel2010　散布図のデータ指定方法

1つ目のマクロで、テキストファイルのデータをグラフにプロットさせます。

2つ目のマクロで、1つ目のテキストファイルが更新されていればその分のデータを追加し、
追加分グラフにも反映させるようなプログラムを作っています。

1つ目は出来ました。
以下、コード(グラフ作成部分)とイメージです。

    'グラフ作成
    Dim j As Integer
    Dim rowMax As Long
    Dim colMax As Long
    Dim MyRange As Range
    Dim chartObj As ChartObject
    Dim Color As String
    Dim ColorNo As Integer

    rowMax = Cells(Rows.Count, 1).End(xlUp).Row
    Cells(2, UBound(arr) + 2) = "rowMax"
    Cells(2, UBound(arr) + 3) = rowMax

    colMax = UBound(arr)

    Set MyRange = Columns("B:F")

    Set chartObj = ActiveSheet.ChartObjects.Add(500, 100, 450, 300)

    With chartObj.Chart
        '元データ範囲の設定
        .SetSourceData MyRange, xlColumns 'データ範囲
        .PlotArea.Interior.ColorIndex = 2 'プロットエリア背景色　城
        .ChartArea.Fill.BackColor.SchemeColor = 2 '背景色　白
        .Axes(xlCategory).MinimumScaleIsAuto = True
        .Axes(xlCategory).MaximumScaleIsAuto = True
        .HasTitle = True 'タイトル表示
        .ChartTitle.Text = "Data-Plot" 'タイトル
        '全系列に対する処理
        For j = 1 To .SeriesCollection.Count
            With .SeriesCollection(j)
                .ChartType = xlXYScatterLinesNoMarkers 'マーカー付き折れ線グラフ
                .MarkerSize = 2 'マーカーサイズ
                .Format.Fill.ForeColor.RGB = RGB(255, 255, 255) 'マーカー白抜き
                .Format.Line.Weight = 1.5 '線の細さ
                ColorNo = 4 + j
                .Format.Line.ForeColor.ObjectThemeColor = ColorNo '系列の色
                Select Case j
                    Case 1, 2, 3  '温度(K)
                        .MarkerStyle = xlMarkerStyleCircle '円形のマーカー
                        .AxisGroup = 1 '主軸
                    Case 4 '電圧(V)
                        .MarkerStyle = xlMarkerStyleX '円形のマーカー
                        .AxisGroup = 2 '第2軸
                End Select
            End With
        Next
    End With

これに、データを追加してデータ範囲を指定する時に指定方法がわからず上手くグラフを更新できません。
1つ目と同じ指定方法をしても青枠のようになってしまい、x軸が無くなってしまいます。

    'グラフプロット
    Dim MyRange As Range
    Dim Targetchart As ChartObject

    Set MyRange = Columns("B:F")
    Set Targetchart = ActiveSheet.ChartObjects(1)
    Targetchart.Chart.SetSourceData Source:=MyRange, PlotBy:=xlColumns

詳しい方、どうかご教授頂けませんでしょうか。
宜しくお願い致します。m(_ _)m