Sub bop4yh()
Dim a, i&, S$, a1, II&, C As Range, K&()
With CreateObject("Scripting.Dictionary")
      For Each C In Selection
          a = Split(Replace(C, " ", ""), ",")
          For i = 0 To UBound(a)
              If IsNumeric(a(i)) Then
                  .Item(Val(a(i))) = ""
              Else
                  a1 = Split(a(i), "-")
                  For II = 0 To a1(1) - a1(0)
                      .Item(a1(0) + II) = ""
                  Next
              End If
          Next
      Next
      a = .keys
End With
If UBound(a) > 0 Then
      ReDim K(UBound(a))
      For i = 0 To UBound(a)
          K(i) = Application.WorksheetFunction.Small(a, i + 1)
      Next
      Range("C2").Resize(1, UBound(K) + 1) = K
End If
End Sub