Flette data fra mange celler til 1 celle

Public Function MergeCellContent(Rng As Range, separator As String)
   Dim res As String
   Dim cell As Range
   
   For Each cell In Rng
      res = res & cell.Value & separator
   Next cell
   res = Mid(res, 1, Len(res) - Len(separator))
   MergeCellContent = res
End Function