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