VBA to Sum Range Between Colors

[Jefe187]

I have a worksheet that will be copied from a pivot table. The columns will remain static however the rows will change with each new pivot table. I have a code that will highlight the header columns blue. Is there a VBA code to sum the ranges between the 2 colors? I have provided an example below to help explain. I am unable to paste a screen shot or color the cells blue. Essentially in my spreadsheet the row that says "engines" and "Cabs" will be filled with blue and I need to sum each column between the blue fill.

[TABLE="width: 387"]
<tbody>[TR]
[TD]

---

[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][TABLE="width: 500"]
<tbody>[TR]
[TD]Engines[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]255[/TD]
[TD]111[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]555[/TD]
[TD]656[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]353[/TD]
[TD]788[/TD]
[/TR]
[TR]
[TD]Cabs[/TD]
[TD]<blue>[/TD]
[TD]<blue>[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[njimack]

Simply enter =Sum_Colour() into one of the shaded cells

Function Sum_Colour()
Application.Volatile
Dim Colour As Long
Dim i As Long
Colour = Parent.Application.Caller.Interior.Color
For i = 1 To (Rows.Count - Parent.Application.Caller.Row)
    If Parent.Application.Caller.Offset(i).Interior.Color = Colour Then Exit Function
    Sum_Colour = Sum_Colour + Application.Caller.Offset(i)
Next i
End Function

Note: if you enter this into a cell that doesn't have any shaded cells below it, the function will take ages to calculate.

 

[Jefe187]

Thank you! worked great!

 

[JayHero]

How do you make this sum upward instead of downward?