Macro to shift entire row to right based on search term

I dont Understand Exactly What you said, but maybe this below code please try let us this is what you looking for.

Sub myTest()
Dim i As Integer
i = 1
  Do While Range("a" & i) <> ""
    If Left(Range("a" & i).Value, 1) = "F" Then
        Range("a" & i).Resize(1, 3).Copy Range("a" & i).Offset(0, 3)
    End If
    i = i + 1
  Loop
End Sub