Этот код позволит вам перейти к выбранному файлу, а затем открыть его
Sub OpenFile()
strFileToOpen = Application.GetOpenFilename _
(Title:="Please choose a file to open", _
FileFilter:="Excel Files *.xls* (*.xls*),")
If strFileToOpen = False Then
MsgBox "No file selected.", vbExclamation, "Sorry!"
Exit Sub
Else
Workbooks.Open Filename:=strFileToOpen
End If
End Sub
Это поможет вам начать. Открыв его, вы можете написать код, чтобы скопировать листы в ваш файл макроса.