Sub MySequencer()
Dim lr As Long
Dim r As Long
Dim str As String
Dim arr() As String
Dim st As Long
Dim ed As Long
Dim s As Long
Application.ScreenUpdating = False
' Find last row in column A with data
lr = Cells(Rows.Count, "A").End(xlUp).Row
' Loop through all rows starting in row 2
For r = 2 To lr
' Split values and store start and ending values
str = Cells(r, "A")
arr() = Split(str, "-")
st = arr(0)
ed = arr(1)
' Loop through values
If ed >= st Then
For s = st To ed
' Populate column B
Cells(Rows.Count, "B").End(xlUp).Offset(1, 0) = s
Next s
End If
Next r
Application.ScreenUpdating = True
End Sub
