Function CountCellsByColor(rData As Range, cellRefColor As Range) As Long
            Dim indRefColor As Long
            Dim cellCurrent As Range
            Dim cntRes As Long
     
            Application.Volatile
            cntRes = 0
            indRefColor = cellRefColor.Cells(1, 1).Interior.Color
            For Each cellCurrent In rData
                    If indRefColor = cellCurrent.Interior.Color Then
                            cntRes = cntRes + 1
                    End If
            Next cellCurrent
     
            CountCellsByColor = cntRes
    End Function

=CountCellsByColor(B1:L1,G7)