Yardım Grafik Oluşuturup Veri Aralığını Düzenlemek

Öncelikle hayırlı geceler. Bir sunum için makroya ihtiyacım var ancak bir yerini saatlerdir çözemedim.
Öncellikle makroyla bir yatay çubuk grafik oluşturuyorum bu kısımda bir problem zaten yok.
Sorun; grafiği altta verdiğim makroyla oluşturduktan sonra bir buton yardımıyla grafik aralığını değiştirmek istiyorum.
Ancak bir döngü ya da zamana bağlı olarak. Örnek vericek olursam.
1.Saniye Grafik Aralığı= (A1:B4)
2.Saniye Grafik Aralığı= (A2:B4)
3.Saniye Grafik Aralığı= (A3:B4)
.
.
.
Şeklinde.
Şimdiden teşekkür ederim.

Grafiği oluşturduğum makro şöyle:
Private Sub CommandButton1_Click()
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlBarStacked
ActiveChart.SetSourceData Source:=Range("$A$1:$B$4")
End Sub

Merhaba;
ekteki dosyaların ilkinde grafiği kendi oluşturuyor.
İkincisinde ise mevcut grafikte kaynak verisini değiştiriyor.
Ben 5 sn. aralıkla değişim uyguladım. Siz kendi zamanlamanıza göre düzenleyin.
ayrıca 2. dosyada makro adını AUTO_OPENnnn yerine AUTO_OPEN olarak düzenlerseniz açılışta makro aktive olur.
Deneyin.
İyi çalışmalar.