Sub aaa()
'Set Folder path
    Folder = "C:\MEASURE-6000\OUTPUT\Test\"

    'Create worksheet "Input"
    With ThisWorkbook
        Set InputSht = Worksheets.Add( _
                       after:=.Sheets(.Sheets.Count))
        InputSht.Name = "Input"
    End With
    'File name Extension to find
    FName = Dir(Folder & "*.OUT")

    Do While FName < ""
        'Input data file
        With InputSht
            'Count rows in column B
            InputShtLastRow = .Cells(Rows.Count, "B").End(xlUp).Row
            'MsgBox InputShtLastRow    'for testing

            'Add data to worksheet and append each new import
            With .QueryTables.Add( _
                 Connection:="TEXT;" & Folder & FName, _
                 Destination:=.Range("A" & InputShtLastRow + 1))

                .FieldNames = True
                .RowNumbers = False
                .FillAdjacentFormulas = False
                .PreserveFormatting = True
                .RefreshOnFileOpen = False
                .RefreshStyle = xlInsertDeleteCells
                .SavePassword = False
                .SaveData = True
                .AdjustColumnWidth = True
                .RefreshPeriod = 0
                .TextFilePromptOnRefresh = False
                .TextFilePlatform = xlWindows
                .TextFileStartRow = 1
                .TextFileParseType = xlDelimited
                .TextFileTextQualifier = xlTextQualifierDoubleQuote
                .TextFileConsecutiveDelimiter = True
                .TextFileTabDelimiter = True
                .TextFileSemicolonDelimiter = False
                .TextFileCommaDelimiter = True
                .TextFileSpaceDelimiter = True
                .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1)
                .Refresh BackgroundQuery:=False
            End With
        End With
    Loop
End Sub