Filter non-blanks and replace cells

[imdl]

Hi,

I need a macro to filter non-blank cells in column B. The numbers in such non-blank cells should replace the numbers in column A. Can someone help me on the code for this?

A B
Balance For Collection
30,086.00
30,700.00
18,939.99
1,747.00 1,000.00
20,437.60 20,000.00


imdl

[imdl]

Replace.JPG

i've attached sample