codice:
Option Explicit

Sub unisci()
Dim testo As String
Dim cella As Range

For Each cella In Selection
    testo = testo & " " & cella.Value
Next cella
Range("b" & Selection.Rows(1).Row).Value = testo
End Sub
Il mio esempio unirà il testo delle righe selezionate nella colonna B nella prima riga scelta dell'intervallo. Spero ti sia utile.