Option Explicit

Function ReadTXTfile(ByVal filename As String) As String
    Dim fso As Object
    Dim ts As Variant
    Set fso = CreateObject("scripting.filesystemobject")
    Set ts = fso.OpenTextFile(filename, 1, True): ReadTXTfile = ts.ReadAll: ts.Close
    Set ts = Nothing: Set fso = Nothing
End Function

Sub ReadTXT()
    Dim AllText() As String
    Dim Values() As String
    Dim buff() As String
    Dim i As Long
    Dim j As Integer
    Dim lLastRow As Long
    Dim Top As String
    Dim Bottom As String
    Dim InsideInterval As Boolean
    
    AllText = Split(ReadTXTfile(Application.ThisWorkbook.Path & "/1.txt"), vbNewLine)
    ReDim Values(1 To UBound(AllText), 1 To 5)
    
    For i = 1 To UBound(AllText)
        If AllText(i) <> "" Then
        buff = Split(AllText(i), " ")
            For j = 0 To UBound(buff)
                Values(i, j + 1) = buff(j)
            Next j
        End If
    Next i
    InsideInterval = False
    For i = 1 To UBound(Values, 1)
        With Worksheets("Sheet1")
            'Debug.Print (Values(i, 1) & " " & Values(i, 2) & " " & Values(i, 3))
            If InsideInterval = False And Values(i, 2) < Values(i, 5) Then
                InsideInterval = True
                lLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
                Top = Values(i, 1)
                .Cells(lLastRow + 1, 1) = Top
            End If
                If InsideInterval = True And Values(i, 2) > Values(i, 5) Then
                InsideInterval = False
                lLastRow = .Cells(Rows.Count, 2).End(xlUp).Row
                Bottom = Values(i - 1, 1)
                .Cells(lLastRow + 1, 2) = Bottom
            End If
        End With
    Next
End Sub