Copy multiple ranges & paste but Sorted and only Unique Distinct values, skip blank cells

Sub Unique_Sorted_Digits()
    
    Dim v, s, r&, c&, i&, j&, k&
    
    v = Range("T5:W" & Columns("T:W").Find("*", [T1], , , 1, 2).Row)
    
    With CreateObject("Scripting.Dictionary")
        .CompareMode = 1
        For c = 1 To UBound(v, 2)
            For r = 1 To UBound(v, 1)
                If InStr(v(r, c), ",") Then
                    s = Split(v(r, c), ",")
                    For j = 0 To UBound(s) - 1
                        For k = j + 1 To UBound(s)
                            If s(j) > s(k) Then: Temp = s(k): s(k) = s(j): s(j) = Temp
                        Next k, j
                    .Item(Join(s, ",")) = ""
                End If
            Next r
            
            Range("Y5").Offset(0, c - 1).Resize(.Count).Value = Application.Transpose(.Keys)
            .RemoveAll
            
        Next c
    End With
    
End Sub