Copiar datos de tabla dinámica con rango variable

[Gerardo Arevalo]

Hola a todos, tengo una macro que elabora una tabla dinámica con algunos datos, el problema que me surgió es que por ejemplo necesitaría copiar un rango de datos que es variable es decir siempre mi tabla dinámica comienza la hoja1 del libro1 en la celda A4 en adelante, eh visto códigos que muestran la ultima fila con datos :

Range("A65536").Select

Selection.End(xlUp).Select

Yo necesito copiar de la antepenúltima celda hacia A4, y pegarla en otro libro2, hoja2, especificándole a que celda ira la información.

Trate de hacer algo asi:

Range("A65536").Select

if Selection.End(xlUp).Select = "Total general" then

selection.end(xlup).select - 1

selection.pasteSpecial Paste:=xlvalues

pero no se que mas hacer, o como continuar con la macro.

De antemano gracias a todos por tomarse el tiempo.

Saludos.

:star:

[Invitado Cacho R]

Gerardo: sube tu archivo de muestra, por favor.