Move from one row to specified row and column

I did not say or indicated the code works. It will never work, copying entire row in to different column other than the first column is impossible in excel.
There are also other reasons for the code not to work. For e.g. like with *.

Try

Sub test()

Dim Lr As Long, i As Long
Application.ScreenUpdating = 0
    With ActiveSheet
        Lr = .Range("A" & .Rows.Count).End(xlUp).Row
        For i = 6 To Lr
             If LCase(.Cells(i, 1)) Like "of" Then
               .Rows(i).Copy
               .Cells(i, 1).Offset(-5, 0).PasteSpecial xlValues
               .Rows(i).Clear
             End If
        Next i
     End With
 Application.ScreenUpdating = 0
End Sub

I tried
Nothing
Still same error at LCase
And I tell you; this code worked perfectly till I reinstalled office