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

[poposklan]

Aqui ya solucionado este problema mas bien como queria que quedara aqui le paso el codigo de la macro para cualquiera que le interese saludos

private sub command button_1click()
Dim x As string, y As string
Dim i As Long, j As Long
Dim c As Long

c=2
Worksheets("Hoja2").Range(A2:C65536).clear

x=InputBox("Introduce la palabra a buscar", "Buscador")

j=2
y=ActiveSheet.Cells(j,2)

Do While y <> ""
if x = y then
With Worksheets("Hoja2")
.Cells(c,2)=ActiveSheet.Cells(j,2)
.Cells(c,3)=ActiveSheet.Cells(j,3)
End With
c=c+1
End If
j=j+1
j=ActiveSheet.Cells(j,2)
Loop
Worksheets("Hoja2").Select
End Sub