Supponendo un file di excel con 3 fogli, dove foglio1 e foglio2 contengono l'elenco e foglio3 è quello vuoto in cui vuoi incollare i dati filtrati fai così

codice:
Sub CopiaRicerca()
Dim cerca As String
Dim foglio As Integer
Dim i, riga, ultimariga As Long
cerca = InputBox("seleziona il luogo rispettando maiuscole e minuscole")
Sheets("Foglio3").Cells.Clear
 For foglio = 1 To Sheets.Count - 1
  ultimariga = Sheets(foglio).Range("A" & Rows.Count).End(xlUp).Row
   For riga = 1 To ultimariga
    If Sheets(foglio).Cells(riga, "A") = cerca Then
     i = i + 1
     Sheets(foglio).Cells(riga, "A").EntireRow.Copy Destination:=Sheets("Foglio3").Cells(i, 1)
    End If
   Next
 Next
End Sub
Nell'esempio la colonna che contiene boario e le altre voci da cercare è la A. Adattalo alle tue esigenze e per precauzione testa la macro su una copia di backup del tuo file di excel. Non si sa mai.