Gracias muy buen aporte me servira para otro reporte que estoy en proceso, gracias   Salu2 a todos, pueden dar por cerrado el caso JSDJSD gracias por tu interes en otra ocacion sera.

Excelente solucion es exacto lo que necesitaba, gracias.

Hola @Potter08! Perdón, pero no bajé el archivo cuando armé la prueba. De todas maneras, lo comparto! Fijate si cumple con lo que necesitas. Suerte!   ae20200924_post44039_find.xlsm

Me ha ayudado mucho, pero existe alguna forma en que no tenga que digitar en la columna A, porque son mas de 45.000 celdas en la columna A que tendría que digitar y son 4 hojas. Si me pudiera ayudar.

Saludos @Potter08, cuando haces esto Set Rng = Sheets(NameO).Range("A:A").Find(valor, LookAt:=xlWhole) y se consigue el valor buscado, ya Rng hace referencia a esa celda, incluyendo hoja y todo, es decir, tu pudieras hacer por ejemplo Rng.Resize(1, 10).Copy y con eso estas copiando desde la celda Rgn, hasta 10 columnas a la derecha Suerte