Carrito: 
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.
Lo podrás observar en el archivo adjunto.
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