Использование VBA для анимации точечного графика, но получение «Range» объекта Object_'Global «Ошибка»

Question

Я пытаюсь создать простой макрос для анимации точечной диаграммы в Excel. Идея состоит в том, что каждую секунду диапазон исходных данных будет меняться, что оживляет график. Мои данные в столбцах B2: C35. В основном я буду sh для циклического перехода через B2: C2, затем B2: C3, затем B2: C4 et c.

Однако в моей строке 'ActiveChart' я получил следующую ошибку:

Method 'Range' of Object_'Global' Failed

Может ли кто-нибудь помочь мне здесь?

Sub animateChart()

Dim i As Integer
Dim lastRow As Integer

' In this instance, lastRow will equal 34
lastRow = Range("A2").End(xlDown).Row

For i = 1 To lastRow

    Application.Wait (Now + TimeValue("0:00:01"))
    ActiveChart.SetSourceData Source:=Range("'Confirmed Cases'!$B$2:$C$") + i

Next

End Sub