Hi, This would do the trick i think

Sub ConcatenateTwoCells()
Src = InputBox("Which cell's content do you want to append to another
cell?")
Dst = InputBox("To which cell do you want to append the contents of
cell " & Src)
Range(Dst) = Range(Dst) & Range(Src)
End Sub

Regards,
ManualMan
http://www.gamesXL.tk