Check for data in cell. If found paste text into same row another column

I am trying to create a code that will check N12 for data. If found then I would like to enter the text “Right Here” into M12. Here is the code I am using but once I put it into VBA the third line of this block gets highlighted in red. Can you help me to get this working right?

Dim I As Long
Dim R As Long
I = ActiveSheet.Cells(Rows.Count, "N12").End(xlUp).Row
For R = 2 To I
With Cells(R, "N12")
If .Text Like "<>" Then
Cells(R, "M12") = "Right Here"
End If
End With
Next R