Need syntax

MOVE the FAIL from column D to column E? Try this:

Option Explicit

Sub OffsetFAIL()
Dim vFIND As Range

Application.ScreenUpdating = False
On Error Resume Next
With ActiveSheet
    Do
        Set vFIND = .Range("D:D").Find("Fail", LookIn:=xlValues, LookAt:=xlWhole)
        If Not vFIND Is Nothing Then
            vFIND.Cut vFIND.Offset(, 1)
        Else
            Exit Do
        End If
    Loop
End With
Application.ScreenUpdating = True

End Sub