Sub ImportData()
Dim i As Long
Dim j As Long
Dim ObjFile As Object
Dim objFSO As Object
Dim wsSrc As Worksheet
Dim wbSrc As Workbook
Dim wsDeset As Worksheet
Dim lastRow As Long
'Screen flashing turn off
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'Set path folder name
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("Your folder path here")'change your folder path here
Set wsDest = ThisWorkbook.Worksheets(1)
'Copy CSV file names in folders
i = 1
For Each ObjFile In objFolder.Files
Cells(i + 4, 1) = ObjFile.Name
'Next file
i = i + 1
Next ObjFile
'Copying Characteristics and pasting horizontally
For Each ObjFile In objFolder.Files
Workbooks.Open ObjFile.Path 'Open files in CSV
Sheets(1).Range("A2:A200").Copy 'Copy column A in the CSV
wsDest.Cells(j + 4, 2).PasteSpecial Paste:=xlPasteValues, Transpose:=True
Exit For 'Exit loop
Next ObjFile
'Copy Actual values and paste horizontally
For Each ObjFile In objFolder.Files
Workbooks.Open ObjFile.Path
Sheets(1).Range("B2:B200").Copy
wsDest.Cells(h + 5, 2).PasteSpecial Paste:=xlPasteValues, Transpose:=True
ActiveWorkbook.Close SaveChange = False
h = h + 1
Next ObjFile
'Screen flashing turn on
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Some files for practice!