MACRO TO DEL SPACE IN CELL

Hello,
I need a macro that after I goto a cell I start the macro that then goes home in the cell.
Then it deletes the empty space in the begining of the cell.
Then it go down one and ends.
I would then use the hot key to do again as I need to do this to about 1500 cells.
Thanh you in advance for any help.
Mike