inserting columns and pasting
 

Hi I was wondering if anyone could help me out. I have a set of data in a
spreadsheet that I need to insert rows in every fourth column (going to the
right)starting in column B:B. Then I need the contents in Column A:A pasted
in all the previously inserted rows. By looking at the sample data below it
might be easier to understand.

Example of data before macro run:

10-043 82206 24000 T0646 0 82206 24000 T0646 0
20-044 82201 24000 T0646 0 82201 24000 T0646 0
10-045 82201 24000 T0646 0 82201 24000 T0646 0

The way I need my data:

10-043 82206 24000 T0646 0 10-043 82206 24000 T0646 0
10-043
20-044 82201 24000 T0646 0 20-044 82201 24000 T0646 0
20-044
10-045 82201 24000 T0646 0 20-044 82201 24000 T0646 0 10-045

I've tried various Do While loops, but nothing has worked to well. Any help
would be appreciated.
--
Regards,

timmulla