I am trying to write a macro that when a user selects a cell and runs the macro, the following will happen (for example, user select cell b1)
- b1 is selected and the contents of c1 is concatenated to the contents of b1, with a space between the two strings, and the complete string is placed in b1.
- c1 is deleted, and the remaining row is shifted left one position, to make up for the deleted cell.

I also want a variation of this that will do 3 cells:
- b1 is selected and the contents of c1 is concatenated to the contents of b1, with a space between the two strings, and the contents of d1 is then contatenated with b1 and the complete string is placed in b1. e.g. b1 = b1 & " " &c1&" "&d1
- c1and d1 are deleted, and the remaining row is shifted left two positions, to make up for the deleted cells.

All the example I've seen rely on a specified cell (e.g. Range("B1")) and I want to have it operate on the user selected cell.

So far, I've come up with:

Range("A35").Select
ActiveCell.FormulaR1C1 = "=RC[1]&"" ""&RC[2]"
Range("A36").Select

But it does not meet my needs....any help is appreciated
Thanks
John