Aquí les dejo una función para concatenar celdas, el uso de ésta UDF es menos laboriosa que si usaras la función CONCATENAR ó “&”.
Lo podrás observar en el archivo adjunto.

Descargar xls

 

Option Explicit
Function Unir(Rango As Range, Optional Delimitador As String) As String
Dim Celda As Range, n As Long
 n = 1
 For Each Celda In Rango
   If n = Rango.Cells.Count Then
    Unir = Unir & Celda
   Else
    Unir = Unir & Celda & Delimitador
   End If
   n = n + 1
 Next Celda
End Function