Excel buscar coincidencias

[poposklan]

Hola aqui estoy tratando de hacer un macro que realice un ciclo para realizar una busqueda en excel y que me tire varias coincidencias y que los copie y pegue en otra hoja. sin embargo solo funciona para una busqueda y realiza todo lo anterior aqui esta el codigo de la macro que llevo hasta el momento

Sub buscar()
Dim n As Range
Dim x As Integer
x = 0
Sheets("Hoja1").Select
w = InputBox("Introduce la palabra a buscar", "Buscador")
Set n = Cells.Find(What:=w)

If n Is Nothing Then
MsgBox "No he encontrado nada. Lo siento."
Else
Range(n.Address).Select
Selection.EntireRow.Select
Selection.Copy
Sheets("Hoja2").Select
Selection.EntireRow.Select
ActiveSheet.Paste
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select

End If

End Sub