エクセル VBAでグラフ作成

エクセル2007を使用しています。
以下の表をグラフ化しようとしています。
表とグラフはエクセルの”テストグラフ”というシートに記載しています。

グラフは以下の通りです。

表は3行目に納品月 4行目に各納品月にそれぞれ販売金額、付加価値、台数と表示しています。縦軸は商品名です。

グラフは各納品月の販売金額と付加価値を商品名毎に表しています。

★教えてほしいこと
表が固定であれば問題ないのですが、表は常に可変します。
商品名が増える、納品月が増えるなどです。
●可変した時のセットデータの設定部分のコードを教えてほしいです。

表が固定されている場合、以下のコードで処理できました。
前後のコードは省略しています。


  Set ws1 = Sheets("テストグラフ")
    Charts.Add
    ActiveChart.ClearToMatchStyle
    ActiveChart.ChartType = xlColumnStacked
    
    ActiveChart.SetSourceData Source:=Range("'テストグラフ'!$A$3:$A$20,'テストグラフ'!$B$3:$C$20,'テストグラフ'!$E$3:$F$20,'テストグラフ'!$H$3:$I$20")
    ActiveChart.Location Where:=xlLocationAsObject, Name:="テストグラフ"
    ActiveChart.PlotBy = xlRows
    ActiveChart.ChartArea.Select
    ActiveChart.Parent.Name = "graf1"
    ws1.Shapes("graf1").ScaleWidth 2.2, msoFalse, msoScaleFromTopLeft
    ws1.Shapes("graf1").ScaleHeight 2.2, msoFalse, msoScaleFromTopLeft
    With ws1.ChartObjects("graf1")
        .Top = Range("C23").Top
        .Left = Range("C23").Left
    End With