Problemas al pegar un autofiltrado.-

Hola y antes de nada Feliz Año Nuevo para :

Un especial saludo, a nuestro Gran Amigo Héctor Miguel y Cia., que tanto
bueno viene haciendo para con todos nosotros.

Bueno, lo que me trae a molestaros de nuevo y tras haber consultado en la
busqueda, la incidencia y no verla en temas anteriores, recurro a Vosotros
para ver si alguien sabe como, poder pegar una tabla, donde se ha usado un
autofiltro y que al pegarla en otra ubicación (hoja o libro diferentes),
pegue "exclusivamente" las filas visibles, gracias al autofiltro
utilizado.

Habitualmente lo hace, de hecho tengo ya alguna macro funcionando que
utiliza un simple "paste" para pegar la selección de un autofiltro.
En el caso actual, me veo obligado a manejar una base de datos un poco más
grande (220.000 filas apróx.), siendo un archivo .xlsm. Y creo que es
debido
al volumén de datos que contiene, que viene a "cascar" la función.
Ignoro si se podría hacer con alguna variación de la función "paste", tipo
del PasteSpecial:= Paste Values... O algo similar.

Para evitar problemas (intenté pasar este "paste" inicialmente, de forma
directa a un archivo .xls y no me dejaba en lo absoluto), he creado una
serie
de hojas en el mismo libro, para poder pegar ahí mismo los diferentes
autofiltros que debo de hacer de la hoja principal y no tener problemas
con
los diferentes formatos y tamaños de archivos. Y la fórmula que estoy
utilizando actualmente (fallida), para intentar conseguirlo es:

Workbooks("BaseDatos.xlsm").Worksheets("Principal").Activate
Cells.Select
Worksheets("Principal").Cells.AutoFilter Field:=1, Criteria1:="01"
Worksheets("Principal").Cells.Copy
ActiveSheet.Paste Destination:=Worksheets("01").Range("A1")

Esperando no haberos aburrido, ni haber sido demasiado confuso y en la
espera de vuestros comentarios y/o indicaciones, os envio desde Madrid un
atento y reconocido saludo.

JC

... como, poder pegar una tabla, donde se ha usado un autofiltro y que al pegarla en otra ubicacion
(hoja o libro diferentes), pegue "exclusivamente" las filas visibles, gracias al autofiltro utilizado...
... estoy utilizando actualmente (fallida), para intentar conseguirlo es:
Workbooks("BaseDatos.xlsm").Worksheets("Principal").Activate
Cells.Select
Worksheets("Principal").Cells.AutoFilter Field:=1, Criteria1:="01"
Worksheets("Principal").Cells.Copy
ActiveSheet.Paste Destination:=Worksheets("01").Range("A1")