Macro to parse address lines with @ symbol between segments

Hello,

I am trying to take addresses that have the @ sign in them and parse them so that each segment between this sign is placed on the subsequent rows. Some addresses have 3 segments, some 4, some 5

So an address in cell A1 that looks like this: Jim Sanders@121 Lorry Lane@Decatur AL@22222 would have in A2 Jim Sanders, in A3 121 Lorry Lane,in Cell A4 Decatur AL, and in cell A5 22222

If it happens that there are fewer segments or more, the idea is the same. Just spread them out until they are finished.

Any help you can offer would be greatly appreciated!
Mike

Use Data->TextToColumns.

Thank you, Buran .. .but I am trying to do it with a macro because what brings the data to this point (in a large spreadsheet with other macro routines having been run) is done with macros as well. I am looking for a completely automated way (no user knowledge of Excel needed) to solve this issue.