Separar por renglones

Hola! Manny_90. Incorpora en un módulo normal la siguiente macro:
_____________________________________

Sub GeneraRangos()
Dim Rng As Range, Celda As Range, RngTmp As Range
Dim ii As Integer, Txt As String, Aaa As Variant

On Error Resume Next
Set Rng = Application.InputBox( _
Prompt:="Seleccione el rango de celdas a procesar", Type:=8)
On Error GoTo 0
If Rng Is Nothing Then Exit Sub

Application.ScreenUpdating = False
Set RngTmp = Rng(1).Offset(0, 1)
For Each Celda In Rng
'Establezco el literal en "Txt"
ii = 1
Do While Asc(Mid(Celda, ii + 1, 1)) > 57: ii = ii + 1: Loop
Txt = Left(Celda, ii)
'Establezco rango numérico en "Aaa(0) y Aaa(1)"
Aaa = Split(Right(Celda, Len(Celda) - ii), "-")

'Llena rango
With RngTmp
If LBound(Aaa) = UBound(Aaa) Then
RngTmp = Txt & Aaa(0)
Set RngTmp = .Offset(1, 0)
Else
Range(RngTmp, .Offset(Aaa(1) - Aaa(0), 0)).ClearContents
RngTmp = Txt & Aaa(0)
Range(RngTmp, .Offset(Aaa(1) - Aaa(0), 0)).DataSeries Type:=xlAutoFill
Set RngTmp = .Offset(1 + Aaa(1) - Aaa(0), 0)
End If
End With

Next Celda

Range(RngTmp, Cells(65536, RngTmp.Column)).Delete xlShiftUp
Application.ScreenUpdating = True
End Sub

_____________________________________

Este código crea a la derecha de la columna seleccionada, el rango de
códigos correspondiente.

Pruébala y comenta.
Saludos, Cacho.