Как сделать ссылку на динамически изменяющийся источник данных в диаграмме?

Question

Я хочу создать код, который может создавать диаграммы на основе динамически изменяющегося диапазона данных. (данные в диапазоне не изменяются, но выбор диапазона изменяется). Есть ли способ ввести переменную для изменяющегося диапазона, а затем использовать переменную в качестве источника данных для диаграммы?

 Range("D2").Select
Selection.FormulaR1C1 = "=RC[-1]*0.9"
Selection.Copy
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Range("A1").Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlUp).Select
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=Range("Sheet1!$D$2:$D$4")

Range (Selection, Selection.End (xlUp)). Select - я хочу, чтобы этот выбранный диапазон использовался в качестве источника в ActiveChart.SetSourceData Source: = Range ("Лист1! $ D $ 2: $ D $ 4 «)