Function Sbor(d_ As Range, Optional del_ = ";")
    Application.Volatile
    If d_.Columns.Count <> 1 Then
        a_ = "Ссылка д.б. на ОДИН столбец"
    Else
        r0_ = d_(1).Row
        c_ = d_(1).Column
        r1_ = Cells(Rows.Count, c_).End(3).Row
        If r1_ < r0_ Then
            a_ = "Ниже ссылки данных нет"
        Else
            For i = r0_ To r1_
                a_ = a_ & del_ & Cells(i, c_)
            Next i
            a_ = Mid(a_, Len(del_) + 1, Len(a_))
        End If
    End If
    Sbor = a_
End Function

Sub Join_()
arr = Range("L4:L" & Cells(4, 9).End(xlDown).Row).Value
[M4] = Join(Application.Transpose(arr), ";")
End Sub

Function Sbor(d_ As Range, Optional del_ = ";")
    Application.Volatile 'Автопересчет функции. Если их много, то убрать эту строку
    If d_.Columns.Count <> 1 Then 'если в ссылке d_ несколько столбцов
        a_ = "Ссылка д.б. на ОДИН столбец"
    Else 'иначе
        r0_ = d_(1).Row 'номер первой строки из ссылки
        c_ = d_(1).Column 'номер первого столбца из ссылки
        r1_ = Cells(Rows.Count, c_).End(3).Row 'номер последней заполненной строки с столбце с_
        If r1_ < r0_ Then 'если r1<к0
            a_ = "Ниже ссылки данных нет"
        Else 'иначе
            For i = r0_ To r1_ 'цикл от r0 до r1
                If Cells(i, c_) <> "" Then 'если ячейка не пуста
                    a_ = a_ & del_ & Cells(i, c_) 'приклеиваем к переменной а справа разделитель и значение ячейки
                End If '
            Next i
            a_ = Mid(a_, Len(del_) + 1, Len(a_)) ' отрезаем от полученного а слева столько символов, сколько их в разделителе
        End If
    End If
    Sbor = a_ 'функция выводит то, что получилось в а
End Function

Function MergeTxt(r As Range, Optional sep As String = ";") As String
Dim txt
    With CreateObject("Scripting.Dictionary") ' создаем словарь
        ' в цикле заполняем словарь уникальными значениями диапазона
        For Each txt In r: .Item(txt.Value) = 0&: Next txt
        MergeTxt = Replace(Join(.keys, sep), ";;", ";") ' объединяем элементы словаря
    End With
End Function

Sub Join_()
arr = Range("L4:L" & Cells(4, 9).End(xlDown).Row).Value
txt = Replace(Join(Application.Transpose(arr), ";"), ";;", ";")
[M4] = Replace(txt, ";;", ";")
End Sub