EXCEL MACRO VBA COPY WORDS WHICH START WITH "Acc" FROM COLUMN A TO B : [Excel sheet][1]


  [1]: http://i.stack.imgur.com/xi1Ol.jpg

I would like a an automation developed.

Starting from A2 move contents of A2 into B3 and B4 then move contents A5 into B6 to B8, then A9 into B10 and so forth to the end 

of the records

The logic is if cell AX has string starting with "Acc" move contents into cell  BX+1 If next cell AX+2 is not starting with "Acc" 

then copy cell BX above and so forth till end of the data.

Stop when cell AX is blank.
Here is my code i tried but its not working http://pastebin.com/WSp375CE
