With Range("B2:B5")
For i = .FormatConditions.Count To 1 Step -1
.FormatConditions(i).Delete
Next i
.FormatConditions.Add Type:=xlExpression, Formula1:="=B2>A2"
With .FormatConditions(1)
.Interior.ColorIndex = 35
End With
End With