Option Explicit
Function Conclas(ByVal R As Range) As String
Dim TE(), C As Long, Z As String, TS() As String, PMax As Long, P As Long
TE = R.Value
For C = 1 To UBound(TE, 2)
Z = TE(1, C)
If Z <> "" Then
PMax = PMax + 1: ReDim Preserve TS(1 To PMax)
For P = PMax To 2 Step -1
If TS(P - 1) < Z Then Exit For
TS(P) = TS(P - 1): Next P
TS(P) = Z: End If: Next C
ConClas = Join(TS, " - ")
End Function