I have several blocks of text like this...

A1: coffee
A2: creamer

A4: straws
A5: cups

...I need to be able to move each second row of text to the cell one row above and one column right of it and remove the empty rows between so that it looks like this...

A1: coffee B1: creamer
A2: straws B2: cups

Is there a macro that can help me do this through the whole spreadsheet?

Thanks