cabecera + filtro

[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