splitting text into rows.

Hi all,

I'm new to VBA and I'm looking for a macro which would do the following:

I have this:

555545, 4555
42225, 44
4444, 5, 4445, 88, 986

and I want this:

555545
4555
42225
44
4444
5
4445
88
986

Many thanks in advance!