VBA sumifs with a loop

Hi All,
I want to write some code that will allow me to do a sumifs.

How do I get the code to drop to the next line so 'Graph data'!A4' to changes to 'Graph data'!A5' within the code?

Column A has the time of day, from 8am to 8pm and is the look up




Current code looks like

Sub GraphData()

Sheets("GraphData").Select
Range("B4:M724").clear

Range("B4").select

For I = 1 to 721

Cells(3 + I, 2).Formula = "=SUMIFS(AAA!$F:$F,AAA!$A:$A,""=""&Graphs!$G$1,AAA!$B:$B,""=""&'Graph data'!A4)"
Cells(3 + I, 3).Formula = "=SUMIFS(AAA!$G:$G,AAA!$A:$A,""=""&Graphs!$G$1,AAA!$B:$B,""=""&'Graph data'!A4)"
Cells(3 + I, 3).Formula = "=SUMIFS(AAA!$H:$H,AAA!$A:$A,""=""&Graphs!$G$1,AAA!$B:$B,""=""&'Graph data'!A4)"

Next I

End Sub

Data.JPG

Any help appreciated

Cheers

Dean

Thanks Richard,

I'm not sure what you mean by

'I tend to hold formulae like this that need copying down a range in a named range in a spare row somewhere above the data and have VBA copy and paste the range name. '
[/I]

I wanted to 'loop' as there is over 270 lines it needs to go through and ended up with 'Graph data'!A" & I + 3 & ")" in the formula.

Cheers

Dean

I ended up adding " & I + 3 & ")" to the end of the formula - works a treat

Cells(3 + I, 2).Formula = "=SUMIFS(AAA!$F:$F,AAA!$A:$A,""=""&Graphs!$G$1,AAA!$B:$B,""=""&'Graph data'!A" & I + 3 & ")"
Cells(3 + I, 3).Formula = "=SUMIFS(AAA!$G:$G,AAA!$A:$A,""=""&Graphs!$G$1,AAA!$B:$B,""=""&'Graph data'!A" & I + 3 & ")"
Cells(3 + I, 4).Formula = "=SUMIFS(AAA!$H:$H,AAA!$A:$A,""=""&Graphs!$G$1,AAA!$B:$B,""=""&'Graph data'!A" & I + 3 & ")"

Cheers

Dean