Concatenar texto con VBA EXCEL MACROS

CONCATENAR TEXTOS CODIGO.

Function concatenarceldas(rango As Range)
'bucle para recorrer todas las celdas del rango
For Each celda In rango.Cells
'si la celda no esta vacia, entonces concatenar

If celda.Value <> "" Then
resultado = resultado & ";" & celda.Value
End If

Next celda

'se remueve el ; y espacio inicial
resultado = Right(resultado, Len(resultado) - 2)
concatenarceldas = resultado

End Function