VBA: inserting blank cells

Hi
It should be an easy task I assume, but I just can't get my head around it.
I need to write a macro inserting 2 empty cells/ moving the other cells in the row 2 columns to the right every time the cell in column A is empty.

----A---B---C---D---E
1--x----x---x---x----x
2--------x---x----------- (these x's should move 2 places to the right)
3--------x---x----------- (these x's should move 2 places to the right)
4--------x---------------- (these x's should move 2 places to the right)
5--x----x---x---x----x
6--------x---x----------- (these x's should move 2 places to the right)

What I want to do is automatically move the values in rows beginning with an empty spot two places further to the right; in this example it would be row 2, 3, 4 & 6
And afterwards I want to do almost the same thing, now just moving the cells 1 place to the right, if the cell in column E is empty; as E4 in this example.

----A---B---C---D---E
1--x----x---x----x---x
2------------------x---x
3------------------x---x
4------------------x----- (this x should move one place to the right)
5--x----x---x---x----x
6------------------x---x