Taking lines from multiple files into one sheet

[Amy]

I have about 20 CSV/Excel files that each have one sheet with two lines: a
header row and one row of data. I need programming that will take row 2 of
every file and compile them into one spreadsheet.

i.e. I currently have a bunch of .csv files that look like this:

File 1:
Site_Id Longitude Latitude Contour_Area VehicleTraffic
Allen Grove -83.2144 35.842 5.79787 39731.36

File 2:
Site_Id Longitude Latitude Contour_Area VehicleTraffic
Ballplay Rd -84.307 35.4895 23.5851 470.651

File 3:
Site_Id Longitude Latitude Contour_Area VehicleTraffic
Battles -83.4404 35.7365 10.2165 17917.16

I need something that will programmatically give me:

Site_Id Longitude Latitude Contour_Area VehicleTraffic
Allen Grove -83.2144 35.842 5.79787 39731.36
Ballplay Rd -84.307 35.4895 23.5851 470.651
Battles -83.4404 35.7365 10.2165 17917.16

Thanks in advance!

 

[Ron de Bruin]

Try
http://www.rondebruin.nl/copy3.htm

Change
FilesInPath = Dir(MyPath & "*.xl*")

to
FilesInPath = Dir(MyPath & "*.csv")