Загрузка нескольких книг (и фильтрация) на один лист Excel 2010

я пытаюсь загрузить несколько книг на один лист, все эти книги будут содержать один общий заголовок столбца. После загрузки нескольких книг я хотел бы найти нужные строки и вставить их на новый лист.

до сих пор я выполнял поиск и вставку, но часть, требующая загрузки нескольких книг, довольно сложна, может ли кто-нибудь помочь мне в этом? Спасибо.

Sub SearchRowAndCopy()
Dim strSearch 
strSearch = Application.InputBox("Please enter the search string")
x = 2
Do While Cells(x, 1) <> ""
If Cells(x, 2) Like "*" & strSearch & "*" Then
Worksheets("Sheet1").Rows(x).Copy
Worksheets("Sheet2").Activate
erow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(erow)
End If
Worksheets("Sheet1").Activate
x = x + 1
Loop
End Sub