How to split a data cell to a number of data in sequence?

i am a basic excel user, please kindly find the attachment and give me some suggestion on solving the problem i met.

This piece of code does the job. It can sometimes be wise to split the result in two columns(easier to sort) so there is code in there for that too.

Option Explicit
Sub SplitData()
Dim i As Integer, j As Integer, x As Integer, Start As Variant, Stopp As Integer
Dim AC As Range, SC As Range
Dim txt As String, StartCell As String
i = 0
j = 0

Set AC = Range("A1")
Set SC = AC.Offset(0, 1)
While AC.Offset(0, 1).Value <> "" And i < 100
    txt = AC.Offset(0, 1).Value
    Start = Left(txt, InStr(1, txt, "-") - 1)
    Stopp = Right(txt, Len(txt) - InStr(1, txt, "-"))
    For x = Start To Stopp
        'SC.Offset(j, 2).Value = AC.Value
        'SC.Offset(j, 3).Value = x
        SC.Offset(j, 2).Value = AC.Value & " " & x
        j = j + 1
    Next x
    i = i + 1
    Set AC = AC.Offset(1, 0)
Wend
End Sub