Este fórum está sendo desativado

[lorenzeto1]

Estou tentando fazer um filtro avançado no VBA porém consta esse erro, alguém consegue me ajudar sobre o que significa este erro?

Meu código
Option Explicit

Sub FiltroAdvConcluido()

Dim baseDados As Range, criterios As Range
Dim destino As Range

Set baseDados = RELATORIOSISTEMA.Range("C1").CurrentRegion
Set criterios = RELATORIOSISTEMA.Range("O1:Y2")
Set destino = RELATORIOSISTEMA.Range("O5:V5")

baseDados.AdvancedFilter xlFilterCopy, criterios, destino <- Está dando erro aqui

End Sub

Sub FiltroAdvPendente()

Dim base2 As Range, intC2 As Range
Dim destino2 As Range

Set base2 = RELATORIOFINAL.Range("C1").CurrentRegion
Set intC2 = RELATORIOFINAL.Range("P1:AA2")
Set destino2 = RELATORIOFINAL.Range("P5:V5")

base2.AdvancedFilter xlFilterCopy, intC2, destino2 <- Está dando erro aqui

End Sub

[Foxtri]

Boa tarde.
Uma possibilidade é limpar a área de destino, pois pode ter algo incompatível.
Se não for isso, mande uma amostra da tua planilha,fica mais fácil verificar o problema.
Até
Foxtri