Excel: Seperating Words from a Cell to Multiple Rows

Hi everyone,

Let's jump directly to the question:
Assume I have cell A1 with values
A1 = ABAB CDEDF FGHI JKLMNO
(the length of each words could vary, but the number of words will not exceed 8)

I want to break (make a copy of) them to cell A2, A3, A4, ...
So we get:
A1 = ABAB CDEDF FGHI JKLMNO
A2 = ABAB
A3 = CDEDF
A4 = FGHI
A5 = JKLMNO

How's the VBA code?
Thanks for your help.