Pessoal, boa tarde.

Num vídeo que estou assistindo esta Macro funciona perfeitamente ... copiei tudo idêntico, mas ao executar aqui, ela (que está no Módulo 1) só leva o Cabeçalho para o destino!! ... Alguém sabe o que pode ser (será macumba k)??? .............. (não postei o arquivo porque ele é enorme e com dados do trabalho)!!!

Option Explicit

Sub filtroavancado()

Dim base As Range, intC As Range
Dim destino As Range

Set base = Planilha1.Range("A2:N2000")
Set intC = Planilha1.Range("BX2:CK3")
Set destino = Planilha1.Range("BX6:CK6")

base.AdvancedFilter xlFilterCopy, intC, destino

End Sub