Spajanje vise celija u jednu sa separatorom

Code:

Sub SastaviCelije()
    
    Dim c As Object
    Set c = ActiveCell
    Dim b As String
    Range("d6").Select
    Do Until IsEmpty(c.Value)
    With c
    If c.Value <> "" Then
    b = ActiveCell.Value
    
      Range("c3") = b
    End If
    Set c = c.Offset(1, 0)
    End With
    Loop
        
End Sub

Code:

Option Explicit

Function rng2str(ops As Range) As String
Dim i As Integer
Dim cl As Range
Dim arr() As String

    rng2str = "Nema vrednosti u opsegu!"
    i = Application.CountA(ops)
    If i = 0 Then GoTo kraj
    ReDim arr(i)
    i = 0
    rng2str = ""
    For Each cl In ops.Cells
        If cl.Value <> "" Then
            arr(i) = cl.Value
            i = i + 1
        End If
    Next cl
    rng2str = Join(arr, ";")
kraj:
End Function