Private Sub Worksheet_Calculate()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("B5:BI14").Columns
c.Interior.Color = c.Cells(0, 1)
Next
For Each c In Range("B20:BJ29").Columns
c.Interior.Color = c.Cells(0, 1)
Next
For Each c In Range("B35:BJ44").Columns
c.Interior.Color = c.Cells(0, 1)
Next
For Each c In Range("B50:BK59").Columns
c.Interior.Color = c.Cells(0, 1)
Next
For Each c In Range("B65:BJ74").Columns
c.Interior.Color = c.Cells(0, 1)
Next
For Each c In Range("B80:BJ89").Columns
c.Interior.Color = c.Cells(0, 1)
Next
For Each c In Range("B95:AF104").Columns
c.Interior.Color = c.Cells(0, 1)
Next
Cells.FormatConditions.Delete
UsedRange.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""CA"""
UsedRange.FormatConditions(1).Interior.ColorIndex = 43
UsedRange.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""RTT"""
UsedRange.FormatConditions(2).Interior.ColorIndex = 23
End Sub