You need to open the master workbook that you are copy everything to and save the name by setting "master" to it
You need to keep track of where you are going to write the data from each of the workbooks into the master , do this by setting up an index which increment by 8 ( the number of columns you are coying)
then within the loop you already have where you open each file in turn you first of all detect how many rows you need to copy using then put the code to copy the data and increment the index.
you need to know which worksheet the data is coming from .

[vba]Dim master As Workbook, wb As Workbook
'open the master workbook first
Set master = ActiveWorkbook


'
'Loop through each Excel file in folder
Index = 1
Do While myFile <> ""


' select the correct sheet in the workbook
' then detect the last row of data with:
lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row


'then copy the data


master.Worksheets("Sheet1").Range(Cells(1, Index), Cells(lastrow, Index + 7)).Value = wb.Worksheets("Sheet1").Range(cells(1,1),cells(lastrow,8)).Value
Index = Index + 8



loop[/vba]