Sub创建一个图表，根据不同的数据集选择

Question

我想编码一个从2个条目表创建图表的子代码，每年对5个不同城市的居民数量进行演变。行条目保持静态（1990年 - 1991年 - 1992年等等），与代表不同城市的列条目相反。

我已经编写了这个代码，当我选择一个代码时，它会逐个完成每个城市的图表创建工作。这是我的代码：

Sub DisplayChart()

    Dim MyChart As Chart
    Dim DataRange As Range

    Set DataRange = Selection
    Set MyChart = Sheets("Chart 1").Shapes.AddChart.Chart
    MyChart.SetSourceData Source:=DataRange
    MyChart.ChartType = xlXYScatterLines

End Sub

但是，我希望每次从其他城市选择数据时我的图表都会自行修改（所以每次我选择不同的数据行时）

提前感谢大家的帮助！