Sub cell_merge()
Const delimit = " "
Dim mr, mrl As Range

Set mr = Selection
Set mrl = ActiveCell
newv = Null
For Each s In Selection
    newv = newv & s.Value & delimit
Next
mrl.Value = newv
mr.Merge
mr.WrapText = True
End Sub