cabecera + filtro

[alfa18]

hola amigos,
estoy trabajando con una hoja que contiene una cebecera(una serie de filas con informacion de la hoja) y a continuación una tabla a la que aplicar una serie de filtros.

Antes de aplicar el filtro a la tabla he de quitar la cabecera y una vez realizados los filtros de la tabla volver a pegarla(la cabecera de la hoja) donde estaba

Mi intencion es:
1. enviar la cabecera de la hoja al portapapeles
2. aplicar el filtro a la tabla
3. volver a pegar la cabecera en A1

el problema que tengo es que al cortar las filas de la cabecera(range(...).cut) de la hoja no desaparecen de la hoja sino que solo las marca con un borde, y si a continuacion de cortar la cabecera de la hoja ellimino el rango(range(...).delete) de filas no lo podre recuperar mas tarde para pegarlo. ¿Alguien me puede orientar sobre como resolver este problema en VBA?

Gracias, saludos:D

[alfa18]

Para cortar la cabecera sin perderla cree una hoja auxiliar("cabecera") donde pegar la cabecera temporalmente y luego restaurarla en la hoja original.

Para ello utilice este código:

Código vb:

Sub SimpleCopy()
    Dim src As Range
    Set src = Range("A1:H32")
    Dim dest As Range
    Set dest = Sheets("cabecera").Range("A1")   
     
    src.Cut
    dest.PasteSpecial xlPasteAll                        ' ** ERR **
    Application.CutCopyMode = False
End Sub
 

pero me da error con el metodo PasteSpecial alguien ¿me puede dar alguna idea sobre como resolver el error? ¿Para que sirve el parametro xlpasteall?¿es necesario cutcopymode=False?

Gracias,saludos:D