Hice una funcion en VBA que tal vez te pueda servir, tiene la funcion de concatenar tanto vertical como horizontalmente
concatenar celdas
solo hay que poner =concatenar_int(B4:B7,"V")
El codigo es el siguiente
Código:
Function concatenar_int(rango As Range, Direccion As String)
Dim i As Integer
Dim texto_celda As String
Dim longitud As Integer
longitud = rango.Count
inicio_R = rango.Row
inicio_C = rango.Column
Select Case Direccion
Case "H"
For i = 0 To longitud - 1
texto_celda = Cells(inicio_R, i + inicio_C)
concatenar_int = concatenar_int & texto_celda
Next
Case "V"
For i = 0 To longitud - 1
texto_celda = Cells(i + inicio_R, inicio_C)
concatenar_int = concatenar_int & texto_celda
Next
Case Else
MsgBox ("faltan argumentos")
concatenar_int = "faltan argumentos"
End Select
End Function
saludos