Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
    'месяц
    a = Month(Range("a1"))
    'нижняя строка столбца A
    b = Cells(Rows.Count, "a").End(xlUp).Row
    'цикл от 2й до нижней строки
    For c = 2 To b
        'тупо записал макрорекордером условное форматирование 3х цветное
        Range("c" & c & ":n" & c).FormatConditions.AddColorScale ColorScaleType:=3
        Range("c" & c & ":n" & c).FormatConditions(Range("c" & c & ":n" & c).FormatConditions.Count).SetFirstPriority
        Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(1).Type = _
            xlConditionValueLowestValue
        With Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(1).FormatColor
            .Color = 7039480
            .TintAndShade = 0
        End With
        Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(2).Type = _
            xlConditionValuePercentile
        Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(2).Value = 50
        With Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(2).FormatColor
            .Color = 8711167
            .TintAndShade = 0
        End With
        Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(3).Type = _
            xlConditionValueHighestValue
        With Range("c" & c & ":n" & c).FormatConditions(1).ColorScaleCriteria(3).FormatColor
            .Color = 8109667
            .TintAndShade = 0
        End With
        'красим ячейку согласно форматированию столбца согласно даты
        Range("a" & c).Interior.Color = Cells(c, a + 2).DisplayFormat.Interior.Color
        'удаляем условное форматирование из строки
        Range("c" & c & ":n" & c).FormatConditions.Delete
    Next
    Application.ScreenUpdating = True
End Sub