Как заставить макрос передавать текущий цвет УФ - реальному цвету ячейки

Private Sub Worksheet_Calculate()
    Dim c As Range
'-----------------
    Application.ScreenUpdating = False
    For Each c In Range("E1:K45").Cells
        Select Case c.Value
            Case 2: c.Interior.Color = 255
            Case 1: c.Interior.Color = 65535
            Case 0: c.Interior.Color = xlNone
        End Select
    Next
    Application.ScreenUpdating = True
End Sub

Sub Перекрасить_ячейки_в_текущий_цвет_условного_форматирования()
    Dim c As Range
    Application.ScreenUpdating = False
    For Each c In ActiveSheet.UsedRange.Cells
        If c.FormatConditions.Count > 0 Then
           c.Interior.color = c.DisplayFormat.Interior.color
        End If
    Next
    Application.ScreenUpdating = True
End Sub
 
Private Sub Worksheet_Calculate()
     Перекрасить_ячейки_в_текущий_цвет_условного_форматирования
End Sub