Experimente:

Sub InsereNúmeros()
 Dim k As Long, e As Long, d As Long
  For k = 13 To Cells(Rows.Count, 3).End(3).Row
   If InStr(1, Cells(k, 3), " ") > 0 Then
    On Error Resume Next
    e = Left(Cells(k, 3), InStr(1, Cells(k, 3), " ") - 1)
    d = Right(Cells(k, 3), Len(Cells(k, 3)) - InStrRev(Cells(k, 3), " ", , 1))
    Cells(k, 3) = e
    Cells(k, 3).AutoFill Range(Cells(k, 3), Cells(k + d - e, 3)), xlFillSeries
    k = k + d - e
   End If
  Next k
End Sub

Osvaldo,

Excelente. É realmente isso que eu estava precisando. Porém gostaria apenas de alguns toques finais. Eu joguei toda a minha planilha no modelo em exemplo, criei um botão de comando com a Macro que vc postou, porém percebi que na minha planilha contém repetições de números com barras(/), traços(-), etc...
Eu percebi que a sua macro só reconhece as repetições que ficam Ex: 27 a 31. Ele não reconhece as barras, traços e outras diferenças.

Obs: minha Planilha original está em anexo.

Obrigado amigo.

Porém gostaria apenas de alguns toques finais.
Alguns toques finais ? Tá de brincadeira, né. Será necessário um outro código muito mais trabalhoso do que o primeiro !!!

Eu joguei toda a minha planilha no modelo em exemplo, criei um botão de comando com a Macro que vc postou, porém percebi que na minha planilha contém repetições de números com barras(/), traços(-), etc...
Hummm ... só agora é que você percebeu que tem barras, traços, .... ? Entendi ...

Eu percebi que a sua macro só reconhece as repetições que ficam Ex: 27 a 31. Ele não reconhece as barras, traços e outras diferenças.
Óbvio, né amigão, pois na sua amostra não existem barras, traços, .....

Agora você "jogou" outro arquivo e eu é que vou precisar examinar 15 mil registros para levantar todas as variações possíveis ?
Ao menos faça isso, forneça uma lista contendo uma amostra de T O D A S A S V A R I A Ç Õ E S P O S S Í V E I S.