Merging Data from many workbooks in to one workbook

[Excel Fox]

Search for the code

Set BaseWks = Workbooks.Add(xlWBATWorksheet).Worksheets(1)

with

    If ThisWorkbook.Worksheets.Count > 1 Then
        Set BaseWks = ThisWorkbook.Worksheets(2)
    Else
        Set BaseWks = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    End If