Excel VBA – 添加自定义范围源的图表

我有一个Excel表单看起来像这样：

现在我想写一个Excel VBA代码，添加一个types的图表：xlAreaStacked

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

当我使用macros录像机时，我得到以下代码：

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表？