If text string BEGINS with 5 spaces then shift cell to the right

Try:

Option Explicit

Sub MoveCells()

Dim lLR As Long, i As Long
lLR = Range("B" & Rows.Count).End(xlUp).Row

Application.ScreenUpdating = False
For i = 2 To lLR
    If Left(Range("B" & i).Value, 10) = Space(10) Then
        Range("B" & i).Cut Range("B" & i).Offset(, 2)
    ElseIf Left(Range("B" & i).Value, 5) = Space(5) Then
        Range("B" & i).Cut Range("B" & i).Offset(, 1)
    End If
Next 'i
Application.ScreenUpdating = True

End Sub

A bit neater:

Option Explicit

Sub MoveCells()

Dim lLR As Long, i As Long
lLR = Range("B" & Rows.Count).End(xlUp).Row

Application.ScreenUpdating = False
For i = 2 To lLR
    With Range("B" & i)
        If Left(.Value, 10) = Space(10) Then
            .Cut .Offset(, 2)
        ElseIf Left(.Value, 5) = Space(5) Then
            .Cut .Offset(, 1)
        End If
    End With
Next 'i
Application.ScreenUpdating = True

End Sub