[SOLVED] copy text in column b cell if column a cell is not empty

I need a MACRO that will go down each cell in column A and if it finds data in the cell, it places a dash into the adjacent cell in Column B. Once it finds a blank cell in Column A, the MACRO ends.