Excel 2007 : Insert comma to text string

Hi Guys

I want to insert comma at the end of every word/text string in a cell

A
1 WordX
2 Word Bx
3 WordZz

Will be like this:

A
1 WordX,
2 Word Bx,
3 WordZz,

I'm using the =CONCATENATE(A1,",")
to solve that problem,
Yet, is there a better way to do that?

I also need the macro to do the action on all the cells in column A
till it find an empty cell, then its stops.

Many thanks in advance.