Vedi se così va bene.

codice:
Option Explicit

Sub unisci()
Dim testo As String
Dim cella As Range
Dim inizio As Long, fine As Long

inizio = Selection.Rows(1).Row
fine = inizio + Selection.Rows.Count - 1

For Each cella In Selection
    testo = testo & " " & cella.Value
Next cella

'applichi alla cella la formattazione che vuoi
'esempio:
With Range("b" & inizio)
    .Value = testo
    .Font.ColorIndex = 3
End With
'unisco le celle
Range("b" & inizio & ":b" & fine).Merge
End Sub