Option Explicit
Function CombineRange(WorkRng As Range, Optional Sign As String = ";") As String
Dim rng As Range
Dim outStr As String
For Each rng In WorkRng
If rng.Text <> "" Then
outStr = outStr & rng.Text & Sign
End If
Next
CombineRange = Left(outStr, Len(outStr) - len(Sign))
End Function