Excel - Extraer ciertos valores de celdas

Sub BuscaAnios()

'

' BuscaAnios Macro

' Separa lal celdas y luego separa los años. luego busca el guion saca valores antes y despues d3el guion el resultado lo deja en hoja 2

'

' Acceso directo: Ctrl+Mayús+Q

'

Dim F As Integer ' filas de la hoja 1

Dim G As Integer ' filas de la hoja 2

Dim H As Integer ' Contador de Partes de la CELDA

Dim CarrosXCelda() As String

'Con esta parte genero en base a las celdas B de la hoja 1  una lista

' de registros en la base 2

F = 2

G = 2

While Sheets("Hoja1").Range("B" & F).Value <> ""

    Codigo = Sheets("Hoja1").Range("A" & F).Value

    CarrosXCelda = Split(Sheets("Hoja1").Range("B" & F).Value, "\n")

    For H = LBound(CarrosXCelda) To UBound(CarrosXCelda)

       Sheets("Hoja2").Range("A" & G).Value = Codigo

       Sheets("Hoja2").Range("B" & G).Value = CarrosXCelda(H)

       G = G + 1

    Next

    F = F + 1

Wend

'Ahora en la base 2 extraigo los datos y le pongo los valores de los años

F = 2 ' filas de la hoja 2

While Sheets("Hoja2").Range("B" & F).Value <> ""

dato = Sheets("Hoja2").Range("B" & F).Value

       Sheets("Hoja2").Range("C" & F).Value = Mid(dato, InStr(1, dato, "-") - 5, 4)

       Sheets("Hoja2").Range("D" & F).Value = Mid(dato, InStr(1, dato, "-") + 2, 4)

    F = F + 1

Wend

End Sub

Sub Extraer_Años()

    Dim Fila As Long, Texto As String, Num As Integer, _

        Ini As Integer, b as integer, _

        Fin As Integer, a As Integer

    Sheets("Hoja1").Select

    Fila = 2

    While Cells(Fila, "B") <> ""

        Texto = Cells(Fila, "B"): Ini = 9999: Fin = 0

        For a = 1 To Len(Texto)

            If Mid$(Texto, a, 1) = "-" Then

                For b = -5 To 2 Step 7

                    Num = Val(Mid$(Texto, a + b, 4))  '-- Busca la anterior ( -5 ) y la posterior ( +2 )

                    If Num < Ini Then Ini = Num

                    If Num > Fin Then Fin = Num

                Next

            End If

        Next

        Cells(Fila, "C") = Ini

        Cells(Fila, "D") = Fin

        Fila = Fila + 1

    Wend

End Sub