Fórmulas o macros en excel ayudaaaaaaaa

Prueba esto
Private Sub CommandButton1_Click()
ActiveSheet.Select
buscar = InputBox("Coloque la palabra a buscar", busqueda)
Set resp = Cells.Find(What:=buscar, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If resp Is Nothing Then
Worksheets("Facturas").Activate
MsgBox ("No se encontro registro" & TextBox1.Value)
Else
resp.Activate
MsgBox ("Valor encontrado " & buscar)
End If
End Sub

Gracias man me ayudo mucho, ahora si puedes ayudarme con esto más je je seria estupendo... quiero a través de una macro llamar a esa macro de búsqueda y no puedo, ¿sabes cómo puedo hacerlo? Me serviría muchiiiiiiiiiiiiiiiiiiiiisimo

Recuerda que eso esta dentro de un botón (command button) tendrías que copiar de este modo
Sub busca()
ActiveSheet.Select ' Aqui deberias colocar la hoja donde hara la busqueda
buscar = InputBox("Coloque la palabra a buscar", busqueda)
Set resp = Cells.Find(What:=buscar, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If resp Is Nothing Then
Worksheets("Facturas").Activate
MsgBox ("No se encontro registro" & TextBox1.Value)
Else
resp.Activate
MsgBox ("Valor encontrado " & buscar)
End If
End sub
Y lo pegas en un modulo.
Para llamarla de otra macro colocas
Call busca
Y listo.
Te recuerdo que deberías hacer solo una consulta a la vez

Si es que ya lo de búsqueda lo hace perfecto, ahora lo que no entiendo es la parte de call busca, aunque estoy viendo y no se si me ayude lo que quiero, te voy a explicar a ver si me puedes audar, de verdad ya con lo que ahs hecho te doy toda la puntuación, ahora mira lo que quiero para saber si sabes je je
(celda1)nombre: juan
(celda2)apellido: ramirez
(celda3)cedula: 1111111
(celda4)numero:4854551
(celda5)numero2:5452454545
(celda6)celular:414545415
(celda7)estado:soltero
Fíjate que en el ejemplo anterior solo había un numero, ahora hay 2, entonces el problema es que yo solo quiero copiar la información con una macro de estado: soltero y llevarlo a otra hoja (eso ya lo se hacer), lo que quiero es saber como puedo hacer para que una macro me copie siempre estado:soltero este en la celda que este, es decir puede variar ya que de repente no tiene celular y solo tiene un numero entonces estado:¿Soltero pasaría a la celda5 entiendes? Ayudame porfaaaaaaaa.