Merging Cells

Hi

I have a column with data, the cells go data, blank cell, data, blank cell, data etc.

The row count will vary.

What I need to do is go through the non blank cells in the column and merge the them with the blank cells beneth them.

ie A2 = Apple
A3 = blank
A4 = Pear
A5 = blank

run the code to get

A2 and A3 = Apple
A4 and A5 = Pear

Thanks