Excel buscar coincidencias

[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