Dim i As Long
With ActiveSheet.Range("C4:K34")
For i = .FormatConditions.Count To 1 Step -1
.FormatConditions(i).Delete
Next i
.FormatConditions.Add xlCellValue, xlBetween, 1, 110
.FormatConditions(.FormatConditions.Count).Interior.Color = RGB(0, 255, 0)
.FormatConditions.Add xlCellValue, xlBetween, -1, -110
.FormatConditions(.FormatConditions.Count).Interior.Color = RGB(255, 0, 0)
.FormatConditions.Add xlCellValue, xlBetween, "INT", "INT ZZZ"
.FormatConditions(.FormatConditions.Count).Interior.Color = RGB(255, 0, 0)
End With