Lvl1 = ""
lStart = 6
lEnd = 100
For c = 3 To colEnd
If Cells(1, c).Interior.ColorIndex <> xlColorIndexNone Then
For i = lStart To lEnd - 1
If Cells(i, c).Interior.ColorIndex = Cells(1, c).Interior.ColorIndex Then
If Lvl1 = "" Then
Lvl1 = Cells(i, c).Address
Else: Lvl1 = Lvl1 & ";" & Cells(i, c).Address
End If
End If
If Cells(i, c).Interior.ThemeColor = xlThemeColorDark2 Then
If Lvl1 <> "" Then
Cells(i, c).Value = Application.WorksheetFunction.Sum(Range(Lvl1))
End If
End If
Next i
End If
Next c