Суммирование инструментами VBA ячеек в диапазоне, выделенных определенным цветом

Формулировка задачи:

Как инструментами VBA суммировать отдельные ячейки в диапазоне, которые выделенные определенным цветом. Моих знаний хватает на наложении фильтра по цвету и функции =ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;«диапазон»). Но это слишком «деревянный» метод. Ячейки могут меняться в диапазоне и нужен именно VBA-код по суммированию ячеек, выделенных определенным цветом в заданном диапазоне. Пример во вложении. Необходимый результат в ячейках H2 и I3. Спасибо за помощь.

Решение задачи: «Суммирование инструментами VBA ячеек в диапазоне, выделенных определенным цветом»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Function СумЕслиЦвет(Oblast As Range, Obrazec As Range) As Variant
' Суммирует заданный диапазон ячеек при условии, что RGB цвет фона слагаемого совпадает с цветом фона ячейки образца.
    Application.Volatile  True
    Dim Summa1 As Variant, C As Range, ObrazecCvet As Long
    ObrazecCvet = Obrazec.Interior.color
    For Each C In Oblast.Cells
        If C.Interior.color = ObrazecCvet Then
          Summa1 = Summa1 + C.Value
        End If
    Next
    СумЕслиЦвет = Summa1
End Function