Как исправить «Метод диапазона Object_Global Failed»?

Question

Я хочу использовать активный диапазон в качестве исходных данных для диаграммы.

Range("D2").Select
    Selection.FormulaR1C1 = "=RC[-1]*0.9"
    Selection.Copy
    ActiveCell.Offset(0, -1).Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(0, 1).Select
    Range(Selection, Selection.End(xlUp)).Select
    ActiveSheet.Paste
    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
    ActiveChart.SetSourceData Source:=Range(Selection)

Несмотря на то, что Excel создает диаграмму, я получаю сообщение об ошибке.