相同的vba代码导致生成不同的图形

Question

场合

我有简单的VBA代码，循环通过colum 5-10并使用第3-21行的数据创建图形，设置标题，并设置x轴的值。

并发症

代码会根据列生成不同的图形，而且根据我运行宏的次数，它会从同一列生成不同的图形。

代码

Sub Macro6()
For i = 5 To 10
    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
    ActiveChart.HasTitle = True
    ActiveChart.SetSourceData Source:=Range(Cells(3, i), Cells(21, i))
    ActiveChart.ChartTitle.Text = Cells(1, i)
    ActiveChart.SeriesCollection(1).XValues = "=Chart_data!$B$3:$B$21"
    Next i
End Sub