Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 4 Then Exit Sub
ic = Target.Column
If ic < 8 Or ic > 10 Then Exit Sub
irow = 8
Range(Cells(8, ic), Cells(19, ic)).ClearContents
    s = Split(Replace(Target.Value, " ", ""), ",")
    For x = 0 To UBound(s)
        pp = InStr(1, s(x), "-")
        If pp Then
            ifirst = Left(s(x), pp - 1)
            y = -Evaluate(s(x))
                    For ir = irow To irow + y
                    Cells(ir, ic).Value = ifirst
                    irow = irow + 1
                    ifirst = ifirst + 1
                Next ir
            Else
            Cells(irow, ic).Value = s(x)
            irow = irow + 1
        End If
    Next x
End Sub

Range(Cells(8, ic), Cells(19, ic)).ClearContents

Function BlackJek(iStr As String, N As Long)
    Dim t As Long, i As Long, j As Long
    Dim a, b
    t = 1
    a = Split(Replace(iStr, " ", ""), ",")
    For i = 0 To UBound(a)
        If InStr(a(i), "-") > 0 Then
            b = Split(a(i), "-")
            For j = b(0) To b(1)
                If t = N Then BlackJek = j: Exit Function
                t = t + 1
            Next j
        Else
            If t = N Then BlackJek = Int(a(i)): Exit Function
            t = t + 1
        End If
    Next i
    BlackJek = ""
End Function