Several Macros run from VBsccript, 1 throws compile error " Excpected End With"

I am not well versed in either vbscript or VBA, but I must admit I am a little bit annoyed by the macro recorder... Ok, enough about that.

I have quite a few Excel charts that are created in a fairly similar manner. The macros all run, except 1 of the, which insists the is missing an "End With" statement.

Sub XMAEnvelopes()
'
' XMAEnvelopes Macro
'

'
    Sheets("Generic").Select
    Range("D3200:G3453").Select
    ActiveWindow.SmallScroll Down:=-21
    'ActiveChart.ClearToMatchStyle
    ActiveSheet.Shapes.AddChart2(322, xlStockOHLC).Select
    ActiveChart.SetSourceData Source:=Range("Generic!$D$3200:$G$3453")
    With ActiveChart.ChartArea.Format.IncrementLeft - 358.5
    With ActiveChart.ChartArea.Format.IncrementTop - 124.5
    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="XMA Envelopes 20"
    ActiveChart.ChartArea.Select
    ActiveChart.ChartArea.Select
    With ActiveSheet.Shapes("Chart 1").Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorText1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
        .Transparency = 0
        .Solid
    End With
    ActiveChart.ChartArea.Select
    ActiveChart.Axes(xlValue).MajorGridlines.Select
    With Selection.Format.Line
        .Visible = msoTrue
        .Weight = 0.25
    End With
    With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorText1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0.349999994
        .Transparency = 0
    End With
    ActiveChart.ChartArea.Select
    ActiveChart.PlotArea.Select
    Sheets("Generic").Select
    ActiveWindow.SmallScroll Down:=-288
    ActiveWindow.ScrollRow = 3130
    ActiveWindow.ScrollRow = 3126
    ActiveWindow.ScrollRow = 3123
    ActiveWindow.ScrollRow = 3120
    ActiveWindow.ScrollRow = 3117
    ActiveWindow.ScrollRow = 3108
    ActiveWindow.ScrollRow = 3099
    ActiveWindow.ScrollRow = 3071
    ActiveWindow.ScrollRow = 3028
    ActiveWindow.ScrollRow = 2785
    ActiveWindow.ScrollRow = 2449
    ActiveWindow.ScrollRow = 1999
    ActiveWindow.ScrollRow = 1827
    ActiveWindow.ScrollRow = 1473
    ActiveWindow.ScrollRow = 1303
    ActiveWindow.ScrollRow = 968
    ActiveWindow.ScrollRow = 786
    ActiveWindow.ScrollRow = 496
    ActiveWindow.ScrollRow = 395
    ActiveWindow.ScrollRow = 161
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 167
    ActiveWindow.ScrollRow = 250
    ActiveWindow.ScrollRow = 447
    ActiveWindow.ScrollRow = 543
    ActiveWindow.ScrollRow = 740
    ActiveWindow.ScrollRow = 835
    ActiveWindow.ScrollRow = 1045
    ActiveWindow.ScrollRow = 1115
    ActiveWindow.ScrollRow = 1251
    ActiveWindow.ScrollRow = 1303
    ActiveWindow.ScrollRow = 1454
    ActiveWindow.ScrollRow = 1497
    ActiveWindow.ScrollRow = 1577
    ActiveWindow.ScrollRow = 1642
    ActiveWindow.ScrollRow = 1753
    ActiveWindow.ScrollRow = 1802
    ActiveWindow.ScrollRow = 1907
    ActiveWindow.ScrollRow = 1953
    ActiveWindow.ScrollRow = 2082
    ActiveWindow.ScrollRow = 2135
    ActiveWindow.ScrollRow = 2236
    ActiveWindow.ScrollRow = 2295
    ActiveWindow.ScrollRow = 2443
    ActiveWindow.ScrollRow = 2511
    ActiveWindow.ScrollRow = 2603
    ActiveWindow.ScrollRow = 2634
    ActiveWindow.ScrollRow = 2683
    ActiveWindow.ScrollRow = 2723
    ActiveWindow.ScrollRow = 2803
    ActiveWindow.ScrollRow = 2834
    ActiveWindow.ScrollRow = 2865
    ActiveWindow.ScrollRow = 2874
    ActiveWindow.ScrollRow = 2883
    ActiveWindow.ScrollRow = 2886
    ActiveWindow.ScrollRow = 2896
    ActiveWindow.ScrollRow = 2902
    ActiveWindow.ScrollRow = 2914
    ActiveWindow.ScrollRow = 2951
    ActiveWindow.ScrollRow = 2976
    ActiveWindow.ScrollRow = 3016
    ActiveWindow.ScrollRow = 3046
    ActiveWindow.ScrollRow = 3096
    ActiveWindow.ScrollRow = 3130
    ActiveWindow.ScrollRow = 3182
    ActiveWindow.ScrollRow = 3188
    ActiveWindow.ScrollRow = 3185
    ActiveWindow.ScrollRow = 3182
    ActiveWindow.ScrollRow = 3151
    ActiveWindow.ScrollRow = 3136
    ActiveWindow.ScrollRow = 3102
    ActiveWindow.ScrollRow = 2936
    ActiveWindow.ScrollRow = 2575
    ActiveWindow.ScrollRow = 2430
    ActiveWindow.ScrollRow = 2434
    ActiveWindow.ScrollRow = 2437
    ActiveWindow.ScrollRow = 2446
    ActiveWindow.ScrollRow = 2461
    ActiveWindow.ScrollRow = 2480
    ActiveWindow.ScrollRow = 2535
    ActiveWindow.ScrollRow = 2584
    ActiveWindow.ScrollRow = 2698
    ActiveWindow.ScrollRow = 2720
    ActiveWindow.ScrollRow = 2723
    ActiveWindow.ScrollRow = 2726
    ActiveWindow.ScrollRow = 2729
    ActiveWindow.ScrollRow = 2732
    ActiveWindow.ScrollRow = 2735
    ActiveWindow.ScrollRow = 2738
    ActiveWindow.ScrollRow = 2745
    ActiveWindow.ScrollRow = 2751
    ActiveWindow.ScrollRow = 2757
    ActiveWindow.ScrollRow = 2766
    ActiveWindow.ScrollRow = 2782
    ActiveWindow.ScrollRow = 2806
    ActiveWindow.ScrollRow = 2862
    ActiveWindow.ScrollRow = 2902
    ActiveWindow.ScrollRow = 2939
    ActiveWindow.ScrollRow = 2951
    ActiveWindow.ScrollRow = 2963
    ActiveWindow.ScrollRow = 2972
    ActiveWindow.ScrollRow = 2979
    ActiveWindow.ScrollRow = 2985
    ActiveWindow.ScrollRow = 2994
    ActiveWindow.ScrollRow = 3013
    ActiveWindow.ScrollRow = 3022
    ActiveWindow.ScrollRow = 3037
    ActiveWindow.ScrollRow = 3040
    ActiveWindow.ScrollRow = 3043
    ActiveWindow.ScrollRow = 3046
    ActiveWindow.ScrollRow = 3049
    ActiveWindow.ScrollRow = 3053
    ActiveWindow.ScrollRow = 3056
    ActiveWindow.ScrollRow = 3062
    ActiveWindow.ScrollRow = 3065
    ActiveWindow.ScrollRow = 3071
    ActiveWindow.ScrollRow = 3086
    ActiveWindow.ScrollRow = 3090
    ActiveWindow.ScrollRow = 3102
    ActiveWindow.ScrollRow = 3105
    ActiveWindow.ScrollRow = 3108
    ActiveWindow.ScrollRow = 3120
    ActiveWindow.ScrollRow = 3130
    ActiveWindow.ScrollRow = 3173
    ActiveWindow.ScrollRow = 3207
    ActiveWindow.ScrollRow = 3228
    ActiveWindow.ScrollRow = 3253
    ActiveWindow.ScrollRow = 3256
    ActiveWindow.ScrollRow = 3259
    ActiveWindow.ScrollRow = 3262
    ActiveWindow.ScrollRow = 3265
    ActiveWindow.ScrollRow = 3268
    ActiveWindow.ScrollRow = 3271
    ActiveWindow.ScrollRow = 3274
    ActiveWindow.ScrollRow = 3277
    ActiveWindow.ScrollRow = 3280
    ActiveWindow.ScrollRow = 3284
    ActiveWindow.ScrollRow = 3290
    ActiveWindow.ScrollRow = 3293
    ActiveWindow.ScrollRow = 3296
    ActiveWindow.ScrollRow = 3299
    ActiveWindow.ScrollRow = 3302
    ActiveWindow.ScrollRow = 3299
    ActiveWindow.ScrollRow = 3296
    ActiveWindow.ScrollRow = 3293
    ActiveWindow.ScrollRow = 3290
    ActiveWindow.ScrollRow = 3287
    ActiveWindow.ScrollRow = 3284
    ActiveWindow.ScrollRow = 3280
    ActiveWindow.ScrollRow = 3277
    ActiveWindow.ScrollRow = 3274
    ActiveWindow.ScrollRow = 3271
    ActiveWindow.ScrollRow = 3268
    ActiveWindow.ScrollRow = 3265
    ActiveWindow.ScrollRow = 3262
    ActiveWindow.ScrollRow = 3259
    ActiveWindow.ScrollRow = 3256
    ActiveWindow.ScrollRow = 3253
    ActiveWindow.ScrollRow = 3250
    ActiveWindow.ScrollRow = 3247
    ActiveWindow.ScrollRow = 3244
    ActiveWindow.ScrollRow = 3240
    ActiveWindow.ScrollRow = 3237
    ActiveWindow.ScrollRow = 3234
    ActiveWindow.ScrollRow = 3231
    ActiveWindow.ScrollRow = 3228
    ActiveWindow.ScrollRow = 3225
    ActiveWindow.ScrollRow = 3222
    ActiveWindow.ScrollRow = 3219
    ActiveWindow.ScrollRow = 3216
    ActiveWindow.ScrollRow = 3213
    ActiveWindow.ScrollRow = 3210
    ActiveWindow.ScrollRow = 3207
    ActiveWindow.ScrollRow = 3203
    ActiveWindow.ScrollRow = 3200
    ActiveWindow.ScrollRow = 3197
    ActiveWindow.ScrollRow = 3194
    ActiveWindow.ScrollRow = 3191
    ActiveWindow.ScrollRow = 3188
    ActiveWindow.ScrollRow = 3185
    ActiveWindow.ScrollRow = 3186
    Range("T3200:U3453").Select
    Selection.Copy
    Sheets("XMA Envelopes 20").Select
    ActiveChart.Paste
    ActiveChart.FullSeriesCollection(5).Select
    ActiveChart.FullSeriesCollection(5).AxisGroup = 2
    ActiveChart.ChartArea.Select
    ActiveChart.FullSeriesCollection(5).Select
    ActiveChart.FullSeriesCollection(5).AxisGroup = 1
    ActiveChart.ChartArea.Select
    ActiveChart.FullSeriesCollection(5).Select
    With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorText1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0.349999994
    End With
    With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent5
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
        .Transparency = 0
    End With
    With Selection.Format.Line
        .Visible = msoTrue
        .Weight = 1
    End With
    ActiveChart.FullSeriesCollection(6).Select
    ActiveChart.FullSeriesCollection(6).AxisGroup = 2
    ActiveChart.ChartArea.Select
    ActiveChart.FullSeriesCollection(6).Select
    ActiveChart.FullSeriesCollection(6).AxisGroup = 1
    ActiveChart.ChartArea.Select
    ActiveChart.FullSeriesCollection(6).Select
    With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent5
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
    End With
    ActiveChart.PlotArea.Select
    With Selection.Format.Line
        .Visible = msoTrue
        .Weight = 1
    End With
    ActiveChart.ChartArea.Select
End Sub

There is no difference between this and the code for the other macros that I can see, but of course my language of choice is C++, so this doesn't quite compute in my brain....
Anybody ?