Insert data from one column into the empty cells of an adjacent column

Need a macro, please.
I have numbers in column A in every second cell. Alternating cells are blank. I would like to insert numbers from column B into the blank cells of column A.
So data in column A are in rows 1,3,5,7, etc.
Data in clumn B are in rows 2,4,6,8, etc.
Thank you for any help.

see attached example.
does that work for you?
you didn't mention if you wanted to erase data from column B after copying to Col. A.

modytrane.

Thanks very much; this is good.