If cell equals "CR" then make cell to left negative and delete "CR".......

What I need it to do is look in a large range for and cell that equals "CR", then change the cell to the left of it to a negative and remove the "CR".

I have a code that I was working for a day. But now when I run the macro, it no longer does anything. Could it be a setting that I am overlooking, or is there a more reliable way to write this code?

Sub Negative_Convert()
For Each r In Range("A1:BA" & Cells(Rows.Count, "Y").End(xlUp).Row)
      
      If r.Offset(0, 1).Value = "CR" Then
            r.Value = r.Value * -1
      End If
      
      If r.Value < 0 Then
            r.Offset(0, 1).Value = ""
      End If

Next r

End Sub