Sub SetFormatConditionsColAJ()
With ActiveSheet.Columns("A:J")
.FormatConditions.Delete 'delete old format conditions.
.FormatConditions.Add Type:=xlExpression, Formula1:="=$I1 < 1.9"
.FormatConditions(.FormatConditions.count).SetFirstPriority
.FormatConditions(1).Interior.Color = RGB(255, 0, 0)
.FormatConditions.Add Type:=xlExpression, Formula1:="=AND($I1 >=1.9,$I1 <= 5)"
.FormatConditions(.FormatConditions.count).SetFirstPriority
.FormatConditions(1).Interior.Color = RGB(255, 165, 0)
.FormatConditions.Add Type:=xlExpression, Formula1:="=$I1 > 5"
.FormatConditions(.FormatConditions.count).SetFirstPriority
.FormatConditions(1).Interior.Color = RGB(0, 128, 0)
End With
End Sub