Conditional formatting Run-time error '5'

[jonnybrovo815]

I have been using this code for quite some time now > 1 year. All of a
sudden it stopped working and is giving me a "Run-time error '5' Invalid
procedure call or argument."

The code is was selecting a range of entered cells for column K starting at
row 9 and then selecting down to the last entered cell in that column. Can
anyone tell me why it is not working now when it was just a week ago?

Here is the code:

Sub DupsColK()
'
' DupsColK Macro
' '

'
Range("K9").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=IF(COUNTIF($K:$K,$K9)>1,COUNTIF($K$9:$K9,$K9)=1)"
Selection.FormatConditions(1).Interior.ColorIndex = 4
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=IF(COUNTIF($K:$K,$K9)>1,COUNTIF($K$9:$K9,$K9)>1)"
Selection.FormatConditions(2).Interior.ColorIndex = 19
End Sub