Cortar rango de datos de archivo txt y pasarlo a excel

Te mando una solución, lo que debes hacer es lo siguiente:
Crea un libro en Excel
Crea una hoja con el nombre “texto”
Crea una hoja con el nombre “datos”
Presiona Alt + F11
Elige del Menú: Insertar / Módulo
En el panel copia la Macro
Guarda el archivo como “busca texto”
Ahora para ejecutar la macro:
Debes tener tu archivo en c:\
Ejecuta la macro
Sub buscatxt()
'Creada por Dam
Dim zlinini, zlinfin As Long
Dim archivo As String
archivo = InputBox(Prompt:="Entra archivo:")
Workbooks.OpenText Filename:= _
"C:\" & archivo, Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
Columns("A:A").Select
Selection.Copy
Workbooks("busca texto").Activate
Sheets("texto").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("texto").Select
ufila = Range("A" & Rows.Count).End(xlUp).Row
zlinini = 0
Range("A1").Select
For i = 1 To ufila
zconstancia = Left$(Cells(i, 1), 10)
zfirma = Left$(Cells(i, 1), 5)
If zconstancia = "Constancia" Then
zlinini = ActiveCell.Row
End If
If zlinini <> 0 Then
If zfirma = "Firma" Then
zlinfin = ActiveCell.Row
ActiveSheet.Range("A" & zlinini, "A" & zlinfin).Copy
Sheets("datos").Select
Range("A1").Select
ActiveSheet.Paste
Exit For
End If
End If
ActiveCell.Offset(1, 0).Select
Next i
ActiveCell.Offset(j, 0).Select
End Sub