vba code to create a list from data in one field

is their any code that create a list of sperate words in individual fields based on the data in one entire field, for example
if i have the words "dog 1 cat 2" in one cell (A1) is there a way to create code to take those words and in cell a2 place dog, a3 place 1, a4 place cat and a5 place 2?
any help is much apprechiated thanks

I just typed in "dog 1 cat 2 mouse 3" into cell A1, selected the entire column, and did Text to Columns using space as the seperater and recorded it. This is what it looked like:

Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
TrailingMinusNumbers:=True

You can give that a try

worked a treat, many thanks