Macro to separate long string of characters and several spaces into separate columns

This is what I have come up with so far.
But I guess I need to run a Range.TextToColumns first.

Option Explicit
Sub AccountAdjustment()

Dim WS As Worksheet
Dim LResult As String
Dim LR As Long, i As Long



LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    With Range("A" & i)
        .Value = Mid(.Value, 10)
    End With
Next i
End Sub