Unir varios archivos de excel en una sola hoja

Buen día realice la siguiente Macro que lo que hace en el archivo que estoy ejecutando copie el contenido de distintos archivos de excel.
Lo que necesito es que los copie en otro archivo y en la misma hoja de excel.
Sub CopySheet2()
Dim basebook As Workbook
Dim mybook As Workbook
Dim i As Long
Application.ScreenUpdating = False
With Application.FileSearch
.NewSearch
.LookIn = "C:\Test" '
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
If .Execute() > 0 Then
Set basebook = ThisWorkbook
For i = 1 To .FoundFiles.Count
Set mybook = Workbooks.Open(.FoundFiles(i))
mybook.Worksheets(1).Copy after:= _
basebook.Sheets(basebook.Sheets.Count)
ActiveSheet.Name = mybook.Name
mybook.Close
Next i
End If
End With
Application.ScreenUpdating = True
End Sub
Saludos y gracias