With Лист1
        lr = .Cells(.Rows.Count, 1).End(xlUp).Row
        lc = .Cells(5, .Columns.Count).End(xlToLeft).Column
        For r = 6 To lr
            i = 0
            For c = 8 To lc
                If 'здесь должно содержаться условие, что ячейка определенного цвета
                    i = i + 1
                End If
            Next
            .Cells(r, lc + 1) = i 'В конце каждой строки ставится количество ячеек с обусловленным цветом
        Next
    End With

ActiveSheet.ListObjects("Графики").Range.AutoFilter Field:=14, Criteria1:= _
        RGB(0, 0, 0), Operator:=xlFilterCellColor
    With ActiveSheet.ListObjects("Графики").AutoFilter.Filters(14).Criteria1
        .Pattern = xlPatternRectangularGradient
        .Gradient.RectangleLeft = 0.5
        .Gradient.RectangleRight = 0.5
        .Gradient.RectangleTop = 0.5
        .Gradient.RectangleBottom = 0.5
        .Gradient.ColorStops.Clear
    End With
    With ActiveSheet.ListObjects("Графики").AutoFilter.Filters(14).Criteria1. _
        Gradient.ColorStops.Add(0)
        .Color = 16777215
        .TintAndShade = 0
    End With
    With ActiveSheet.ListObjects("Графики").AutoFilter.Filters(14).Criteria1. _
        Gradient.ColorStops.Add(1)
        .Color = 7434613
        .TintAndShade = 0
    End With