busqueda de datos

[S1r]

bueno leyendo este mismo foto encontre esto

Sub buscar()
Dim n As Range
palabra_a_buscar = InputBox("Introduce la palabra a buscar", "Buscador")
Set n = Cells.Find(What:=palabra_a_buscar)
If n Is Nothing Then
MsgBox "No he encontrado nada. Lo siento."
Else
Range(n.Address).Select
MsgBox "Aquí tienes la palabra " & UCase(palabra_a_buscar) & "."
End If
Set n = Nothing
End Sub

k es para realizar una buskeda, pero lo k me gustaria, es k me buscara en una lista "validada" osea no solo el valor k se ve en esa lista, ya k los demas no los encuentra

supongamos mi lista validada es de p001 a p132 y solo me encuentra el valor k esta a la "vista" de la lista >.<, como lo hago para k buske en toda la lista ...

y otra cosa es ke me copie los datos k encontra a otras filas y/o celdas