Изменение диапазона данных точечной диаграммы через переменные VBA

[ymnuhj]

Добрый день.
есть точечная диаграмма на единственном листе в книге Excel (Office 2013). И есть необходимость автоматически через макрос менять диапазон отображаемых данных.

Попробовал сделать это в ручную. Записаный макрос выглядит так.

Sub Макрос1()

    ActiveSheet.ChartObjects("Диаграмма 1").Activate
    ActiveChart.SetSourceData Source:=Range("Лист1!$B$6:$D$12")

End Sub

Проблема в том, что если я задаю диапазон через Range(Cells(r1,c1),Cells(r2,c2)), где r и с переменные,макрос не работает. Кто нибудь в курсе как это делается?

[Aleksandr H.]

Sub Макрос1()
    Dim r1&, c1&, r2&, c2&
    ActiveSheet.ChartObjects("Диаграмма 1").Activate
    ActiveChart.SetSourceData Source:=Range("Лист1!$B$6:$D$12")
    r1 = 1: c1 = 1
    r2 = 13: c2 = 2
    ActiveChart.SetSourceData Source:=Range("Лист1!$a$1:$b$13")
    ActiveChart.SetSourceData Source:=Range("Лист1!$B$6:$D$12")
    ActiveChart.SetSourceData Source:=Range(Cells(r1, c1), Cells(r2, c2))
End Sub

попробовал, меняет диапазон ОК

[ymnuhj]

Да действительно. Работает.
У меня в коде координаты немного посложнее были заданы. И макрос не работал. А когда постил проблему постарался все упростить.
Значит ошибка была в другом месте.
Спасибо

[Aleksandr H.]

Сообщение от ymnuhj

У меня в коде координаты немного посложнее были заданы.

Например?