and here is my recorded macro :

[VBA]Sub Rates()
'
' Rates Macro
'

'
Application.Goto Reference:="R11C11:R10000C11"
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255

End With
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF(Rates,K11)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriori ty
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1

End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=LEN(TRIM(K11))=0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriori ty
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1

End With
Selection.FormatConditions(1).StopIfTrue = False
Range("K11").Select
End Sub[/VBA]