Una Macro Tabla Dinámica

Necesito Una macro que copie datos de una tabla dinámica con rango variable y los pegue en la ultima celda vacía de una columna perteneciente a otro libro. Ojala puedan ayudarme les dejo lo que llevo.

Sub Macro

worbooks("Ventas por Zonales.xlsx").Sheets("Tabla").Activate

Range(cells(6;"A"), cells(Range("A" & Rowns.count).end(xlup).Rows-1."B")).copy

Destination:=_worbooks("BBdatos Ventas.xlsx").sheets("BBDD").Range(A6)

end sub

no se pegarlo en la ultima celda vacía de una columna de otro libro.