[求助]如何在合并单元格时同时合并单元格内的文本？

我想在合并单元格时同时合并单元格内的文本， 如 A1=How A2=are A3=you 合并之后，如何使单元格的内容变成How are you, 并且单词中间有空格？ 谢谢 

选定单元格后，运行宏：

Sub gvntw()
Dim c As Range, temp
Dim i%, arr()
For Each c In Selection
    If Len(c.Value) > 0 Then
        i = i + 1
        ReDim Preserve arr(1 To i)
        arr(i) = c.Value
    End If
Next
temp = Join(arr, " ")
With Selection
    .Value = ""
    .MergeCells = True
    .Value = temp
End With
End Sub

非常感谢！！