You're not telling us where your data starts in column A, if there are blank cells in column A, nor if these are the only letters possible.
It's hard to beat an actual spreadsheet for showing typical data and its layout.
That being said, based on what you've illustrated, maybe this...
Code:
Sub MoveData()
Dim cl As Range, ray As Variant
For Each cl In Range("A2", Range("A" & Rows.Count).End(xlUp))
ray = Split(cl.Value, " ")
cl.Offset(-1, 1).Value = ray(0)
cl.Offset(-1, 2).Value = ray(1)
cl.ClearContents
Next cl
End Sub