Move from one row to specified row and column

Hello
I made a macro to move one row content to another row and column and after I reinstal some programs, it doesn't work anymore.

Sub muta()

' Muta centrul cercului in dreptul ultimei coordonate

Dim Lr As Long, i As Long
Lr = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To Lr
    With Range("A" & i)
        If LCase(.Value) Like "of" Then .Cut Destination = .Offset(-5, 10)
    End With
Next i
End Sub

Anyway I want something like this:
The macro search a row who it content the value "of" and it move the entire row content to the row -5 (up 5 rows) and the column 10
Then it continues searching to the end of the rows.