一枚のシートにて各複数のデータからグラフを作成したいです！棒グラフは反映されるものの折れ線グラフが反映されない。。。

一枚のシートにて各複数のデータからグラフを作成したいです！棒グラフは反映されるものの折れ線グラフが反映されない。。。
一つのデータの場合反映される。
おそらく何かしらで違う引数みたいなのが必要だと思うんですけど具体的にどうしたらいいかわからないです。

Sub
1With ActiveSheet.ChartObjects _
2.Add(450, 25, 450, 300).Chart
3.ChartType = xlColumnClustered
4.SetSourceData Source:=Range(“A3:B14, D3:D14”)
5.HasLegend = True
6.HasTitle = True 
7.ChartTitle.Text = “改善前”
8.ChartTitle.Font.Size = 16
9.Legend.Position = xlLegendPositionTop
10End With
11
12End Sub
13
14Sub test2()
15With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(2)
16.ChartType = xlLineMarkers
17.Values = Range(“D3:D14”)
18.AxisGroup = 2
19End With
20
21End Sub
22
23Sub test3()
24With ActiveSheet.ChartObjects _
25.Add(450, 500, 450, 300).Chart
26.ChartType = xlColumnClustered
27.SetSourceData Source:=Range(“A40:B51, D40:D51”)
28.HasLegend = True
29.HasTitle = True 
30.ChartTitle.Text = “改善後”
31.ChartTitle.Font.Size = 16
32.Legend.Position = xlLegendPositionTop
33End With
34
35End Sub
36
37Sub test4()
38With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(2)
39.ChartType = xlLineMarkers
40.Values = Range(“D40:D51”)
41.AxisGroup = 2
42End Withここに言語を入力
43コード