You could try this:

Sub del_rules()

Dim myrng As Range
For Each cfr In Worksheets("Sheet1").Cells.FormatConditions
    Set myrng = cfr.AppliesTo
    If myrng.Address <> "$O$42:$O$141" Then cfr.Delete
Next cfr

End Sub