Pessoal, esse código abaixo arruma o erro, porém ele faz com que eu seja levado para a plan12 e ela ficará ativa (sendo que ela devera ficar oculta, pois é uma planilha auxiliar) e a ideia seria voltar para uma planilha qualquer de minha escolha.

Sub Filtrar_Vendas5()
Sheets("Plan12").Range("B5:Z50000").ClearContents

Worksheets("Plan12").Activate

Plan2.Range("A1:Y50000").AdvancedFilter Action:=xlFilterCopy, _
                        CriteriaRange:=Range("B2:Z3"), _
                        CopyToRange:=Range("B4:Z4"), _
                        Unique:=False
   
 
End Sub

Se é que entendi, experimente assim:

Sub Filtrar_Vendas5()

' Cód. usado na plan12 (consulta vendas)

Sheets("Plan12").Range("B5:Z50000").ClearContents

Sheets("Plan2").Range("A1:Y50000").AdvancedFilter Action:=xlFilterCopy, _
                        CriteriaRange:=Sheets("Plan12").Range("B2:Z3"), _
                        CopyToRange:=Sheets("Plan12").Range("B4:Z4"), _
                        Unique:=False
       
    'MsgBox "Consulta efetuada com sucesso!", vbInformation + vbOKOnly, "Consulta"
       
    'Range("B2").Select
       
End Sub

Reinaldo, obrigado.

Problema resolvido.