moving data from one cell to another

[Brian Gellman]

Hello,

I'm trying to write a macro that would move data from one cell to another. I have an excel spreadsheet
in the form of

___A_ B __C __ D__ E
1.|A1|B1|___|___| E1
2.|A2|B2|___|___|___
3.|A3|B3|___|___|___

4.|A4|B4|___|___| E4
5.|A5|B5|___|___|___
6.|A6|B6|___|___|___

I'm trying to write a macro that
if B1 and E1 cells are both not empty, then
copy data from B2 into C1 and copy data from B3 into D1.

I'd like the spreadsheet eventually look like:

___A_ B __C __ D__ E
1.|A1|B1| B2 | B3 | E1
2.|A2|B2|___|___|___
3.|A3|B3|___|___|___

4.|A4|B4| B5 | B6 | E4
5.|A5|B5|___|___|___
6.|A6|B6|___|___|___

I'd really appreciate any help on this.

Thanks,
Brian