Sub Consolidated_Range_of_TXTFiles()
    Dim iBeginRange As Object, lCalc As Long
    Dim sRngAddress As String, oAwb As String, sCopyAddress As String
    Dim lLastrow As Long, lLastRowMyBook As Long, li As Long, iLastColumn As Integer
    Dim wsDataSheet As Object, avFiles

    Set iBeginRange = Range("A1") 'если А1, то копирует данные  с тхт файла с 1-й строки
     avFiles = Application.GetOpenFilename("Text files(*.txt),*.txt", , "????? ??????", , True)
    If VarType(avFiles) = vbBoolean Then Exit Sub

    With Application
        lCalc = .Calculation
        .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlManual
    End With
    ThisWorkbook.Sheets.Add After:=Sheets(Sheets.Count)
    Set wsDataSheet = ThisWorkbook.ActiveSheet
    For li = LBound(avFiles) To UBound(avFiles)
        
        Workbooks.OpenText Filename:=avFiles(li), Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=True, OtherChar:="|", FieldInfo:= _
        Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 2), Array(7 _
        , 4)), TrailingMinusNumbers:=True
        
        oAwb = Dir(avFiles(li), vbDirectory)
        lLastrow = Cells(1, 1).SpecialCells(xlLastCell).Row
        iLastColumn = Cells.SpecialCells(xlLastCell).Column
        sCopyAddress = Range(Cells(iBeginRange.Row, iBeginRange.Column), Cells(lLastrow, iLastColumn)).Address
        lLastRowMyBook = wsDataSheet.Cells.SpecialCells(xlLastCell).Row + 1
        sRngAddress = Range(Cells(lLastRowMyBook, 1), Cells(lLastRowMyBook + lLastrow, iLastColumn)).Address
        Range(sCopyAddress).Copy wsDataSheet.Range(sRngAddress)
        Workbooks(oAwb).Close False
    Next li
    With Application
        lCalc = .Calculation
        .ScreenUpdating = True: .EnableEvents = True: .Calculation = lCalc
    End With