Dynamic AutoSum vba

[Dave8899]

I have written VBA that pulls data off Multiple sheets and adds it to an account page, what I need help with please is a VBA that auto sums column G & I up to first empty row above and this to loop, though this until all sections have auto sums in G and I under each different customer. Where it gets tricky is the number of rows each customer has is will change every time.

Sorry cant upload a mini book it a works PC and very restricted, as you can see a Customer can have different departments with different amounts per dept and a different number of rows etc, some have 3 or 4 some can have 50 +, it is dependent on the customer I want to have an auto sum for each department shown by the yellow cells (if I can get them to go yellow as well that would be a bonus) and there could be up to 20 customers on the report so this would be a massive time saver.

If it is possible an overall customer total (green) a few lines below the last entry (but this is not essential)

 

[Fluff]

How about

Sub Dave()
   Dim Rng As Range
   
   For Each Rng In Range("A2", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlConstants).Areas
      With Rng.Offset(Rng.Count).Resize(1)
         .Offset(, 6).Formula = "=sum(" & Rng.Offset(, 6).Address(0, 0) & ")"
         .Offset(, 6).Interior.Color = vbYellow
         .Offset(, 8).Formula = "=sum(" & Rng.Offset(, 8).Address(0, 0) & ")"
         .Offset(, 8).Interior.Color = vbYellow
      End With
   Next Rng
End Sub

 

[Dave8899]

How about

Sub Dave()
   Dim Rng As Range
  
   For Each Rng In Range("A2", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlConstants).Areas
      With Rng.Offset(Rng.Count).Resize(1)
         .Offset(, 6).Formula = "=sum(" & Rng.Offset(, 6).Address(0, 0) & ")"
         .Offset(, 6).Interior.Color = vbYellow
         .Offset(, 8).Formula = "=sum(" & Rng.Offset(, 8).Address(0, 0) & ")"
         .Offset(, 8).Interior.Color = vbYellow
      End With
   Next Rng
End Sub

You are an absaluet star Thanks so much works perfectly

 

[Fluff]

You're welcome & thanks for the feedback.