Excel 2007 : Selected columns to comma separated cell

Thanks both of you for really quick answer.

Is there a way to get the result of the script in the top cell of the selected range?

EDIT: the vba script does not seem to work like intended. I select cells, but it generates values from other places in the sheet