Abraham Valencia

Humm, no recuerdo haber visto un error así ¿tu Tabla Dinámica está creada en base a otra TD? ¿Puedes enviar una captura de pantalla del error? ¿Será posible ver tu archivo? Comentas Abraham Valencia

Para tener una única "plantilla" para todos tus informes y que estos provengan de distintas tablas, todas esas tablas deberían tener los mismos campos lo que no tiene lógica. Si das un poco más de detalles de porque tantas tablas y/o en qué se...

Si mal no te entendí, una línea así te sería útil: Worksheets("Recoleccion de datos"). Range("A1"). CurrentRegion.Copy Destination:=Worksheets("Base de datos"). Range("A1") Ah, eso suponiendo que en la "otra" hoja comienzas a pegar desde la celda...

Dale un vistazo a este archivo que hice hace algunos años: Ejemplo Comentas Abraham Valencia

Me parece o dejas todos los libros nuevos abiertos. Comentas. Abraham Valencia

¿Cómo obtienes los datos de ese "cuadro de lista"? La respuesta depende de eso.

Pues, no es totalmente claro tu dilema pero al parecer tu "hoja 1" tiene ¿cuatro? Columnas con datos pero en el "Buscarv" que usas en tu "Hoja 2" pones que "extraiga" el valor de la octava columna de tu rango. De no ser ese el dilema, sería bueno que...

Si usas el buscador de esta web, tendrás varias respuestas a tu pregunta que podrá ayudarte a intentar resolver tu problema y ya sobre tus avances podemos ayudarte: https://www.todoexpertos.com/s?query=excel%20outlook

Si usas el "Asistente para tablas y gráficos dinámicos" usando los datos de la tabla dinámica que ya tienes, no deberías tener problema en generar la segunda ¿ya intentaste de ese modo? Comentas. Abraham Valencia

Sugiero leer sobre la instrucción "Mid", la estás aplicando mal.