VBA Create chart

Hi,

i manage to create one chart with the following line:

.SetSourceData Source:=Sheets("Sheet1").Range("B2:I76")

I want to create several graph with different data zone in the same CurrentRegion (So, I cannot basically use CurrentRegion), I tried
using variable and loop with:
Sub Creategraph()

Dim intColumnCount As Integer

Dim intRowCount As Integer

Dim intEndData As Integer

Dim aChart As Chart

For intRowCount = 1 To Sheets("Sheet1").Range("A1").CurrentRegion.Rows.Count

If Sheets("Sheet1").Cells(intRowCount, 1).Value = "Date / Time" Then

Set aChart = Charts.Add

intEndData = intRowCount + 72

With aChart

.ChartType = xlXYScatterSmooth

.SetSourceData Source:=Sheets("Sheet1").Range(Cells(intRowCount, 2), Cells(intEndData, 9))

.HasTitle = True

.ChartTitle.Text = "Reactor 1"

End With

End If

Next intRowCount

End Sub