Excel 2007 :: Repeat Same Code Pattern For Each Section

I have a macro that does exactly what I need it to do, but it takes a long time.

There are 4 horizontal sections. The top section (code not included) is the total of 3 sections which are segregated by location.

For the 3 sections:

rows 101 to 172 (section 1), 198 to 269 (section 2), & 295 to 366 (section 3) have the same formula for every other column starting with column F ending with column AT (sums hrs)

rows 173 to 194 (section 1), 270 to 269 (section 2), 367 to 388 (section 3) have the same formula for every other column starting with column G ending with column AU (sums dollar amount)

the columns are corresponding dates

Below is the code snippet that produces the results for section 1. I repeat the same code pattern for each section.

Dim r As Long
For r = 101 To 172
With LaborDetail.Cells(r, "F")
.FormulaR1C1 = "=SUMIFS('Data '!C17,'Data '!C38,RC1,'Data '!C37,R1C)"
.Value = .Value

[Code] .........