buscar con marcro en excel

[pablobaez]

hola tengo un codigo que busca un campo atravez de un input

Código:

Sub BUSCAR_PRODUCTO()
On Error Resume Next

palabra_a_buscar = LCase(InputBox("Palabra (o parte de la palabra) a buscar", "Pregunta"))
If palabra_a_buscar = "" Then
MsgBox "Ingresar Datos", vbCritical
Else
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
    If InStr(LCase(ActiveCell), palabra_a_buscar) > 0 Then
        celda = ActiveCell.Address
        Range("h3").Select
        Do While Not IsEmpty(ActiveCell)
            ActiveCell.Offset(1, 0).Select
        Loop
        ActiveCell = Range(celda).Offset(0, 2)
        Range(celda).Select
    End If
    ActiveCell.Offset(1, 0).Select
Loop
mensaje = MsgBox("Búsqueda finalizada", vbOKOnly, "Final")
End If
Range("H2").Activate
End Sub

pero no se como hacer para que me busque mas campo del registro