Вам же только источник данных изменить. Как пример:
Код:
Sub Диаграмма3()
ActiveChart.SetSourceData Source:=Range("A31:B35")
End Sub
Как работает: выделяете диаграмму, источником данных которой является диапазон "A31:B35" (лист не имеет значение), на вкладке "Разработчик" жмете кнопку "Макрос" и выполняете "Диаграмма3"
