Excel VBA - 使用自定义范围来源

Question

我的Excel工作表看起来像这样：

现在我想写一个Excel VBA代码，它添加了一个类型图表：xlAreaStacked

我想要的另一件事是，我想要对同一类别的值进行分组。 这意味着，我不想要一个有3个来源的图表，我想要2个来源。 （抱歉我的英语不好）

当我使用宏记录器时，我得到以下代码：

Range("A1:D4").Select
ActiveSheet.Shapes.AddChart2(276, xlAreaStacked).Select
ActiveChart.SetSourceData Source:=Range("Tabelle1!$A$1:$D$4")
ActiveChart.SetSourceData
ActiveChart.FullSeriesCollection(1).XValues = "=Tabelle1!$B$1:$D$1" 'X Values are set to the Years

并按照图表：

现在我想要的是： 与上面相同的图表，但我想总结玩具的价值（同一类别）。如何使用Excel VBA和上面的Excel工作表获取此图表？