Repeat macro starting 5 columns across

Hi Everyone,

I have a macro which several users kindly helped me with yesterday. The code now does exactly what I want it to but I now need the macro to perform exactly the same process starting again at column G (i.e. 5 columns on from the start of the macro written down below) with the answers underneath those columns. I'd then like it to repeat the macro another 5 columns further on etc etc. I think I'm close to solving it but can't quite get there. Any help would be most appreciated.

10000 limit macro.PNG

[HTML]Sub DLANetPaySplit()
'
' DLANetPaySplit Macro
' Splits Net pay at the £10,000 DLA threshold
'
Dim i, lastrow As Long

lastrow = Range("B" & Rows.Count).End(xlUp).Row
btotal = 0
ctotal = 0
dtotal = 0
etotal = 0
For i = 4 To lastrow 'change the 1 to whatever the first row of numbers is to include headers.
If btotal + Cells(i, 2).Value <= 10000 Then
btotal = btotal + Cells(i, 2).Value
ctotal = ctotal + Cells(i, 3).Value
dtotal = dtotal + Cells(i, 4).Value
etotal = etotal + Cells(i, 5).Value
Else: GoTo limited
End If
Next i
limited:
Cells(lastrow + 2, 2).Value = btotal
Cells(lastrow + 2, 3).Value = ctotal
Cells(lastrow + 2, 4).Value = dtotal
Cells(lastrow + 2, 5).Value = etotal
'
End Sub[HTML]

Sorry about that. Code above