Ciao Forumista
Prova con questa Function che va inserita in un modulo standard
Function conc(a As Range)
Dim cel As Range
For Each cel In a
conc = conc & cel.Value
Next cel
End Function
Sul foglio di lavoro, supponendo che i dati da concatenare siano sulla riga 1, scriverai