What you need to use is TextToColumns.

You can select the source cells  (column A for example) and use data/text to
columns select delimited and space. and it will all be done for you.

If you need to use VBA for it it would look like:

Sub splitOutText()

Selection.TextToColumns DataType:=xlDelimited, _
ConsecutiveDelimiter:=True, Space:=True

End Sub