dynamic chart using data in rows seperately

[MarioDC]

I have a list created by reading data every 5 seconds (6 inputs at a time).
I want these rows of data put on a chart one by one.
I've done this for a short list using the record mode as I don't know a thing about VBA.
however, the list contains over 500 rows of data. so loop would be solution for that.
I've been searching the net for a code (loop, offset) but can't get the second part of the range to "offset" by 1. The first part always remains "Sheet1!$B6:$N$6"
I added a timer between each data reading so the evolution can be seen on the chart.

ActiveSheet.ChartObjects("Grafiek 2").Activate
ActiveChart.SetSourceData Source:=Range("Sheet1!$B$6:$N$6,Sheet1!$B$8:$N$8")
Application.Wait (Now + (TimeValue("0:00:02") / 3))
ActiveSheet.ChartObjects("Grafiek 2").Activate
ActiveChart.SetSourceData Source:=Range("Sheet1!$B$6:$N$6,Sheet1!$B$9:$N$9")
Application.Wait (Now + (TimeValue("0:00:02") / 3))

 

[MarioDC]

that second part needs to stay as is (not sure that was clear enough in my post)

 

[MarioDC]

that second part needs to stay as is (not sure that was clear enough in my post)

I meant the first part .... sorry ... to early in the morning I guess