Filtro novo em cada ABA

[thairo]

Boa tarde galera, 

Tenho o seguinte código abaixo.

Ele cria uma nova planilha conforme o modelo padrão (perfeito)!

Porém quando eu executo o "botão" de pesquisa ele pega do modelo padrão.

Gostaria de ajuda no comentário     ' EXECUTA O FILTRO, imagino que seja ali para eu executar o filtro na nova planilha criada e não no modelo padrão!

 

Sub lsFiltroAutomatico()
      
    ' declara as variáveis
    Dim ultimaPlanilha As Integer
    Dim planilhaVerificada As Integer
    Dim nomePlanilha As String
    Dim padraoNomePlanilha As String
    Dim posicaoInicio As Integer
    
    ' copia o modelo da planilha
     Sheets("VT").Copy After:=Sheets(ThisWorkbook.Worksheets.Count)
    
    ' define o nome da planilha
    nomePlanilha = "VT"
    
    ' define o padrão de texto referente ao nome da planilha
    padraoNomePlanilha = nomePlanilha & " (*)"

    ' define a última planilha com "nomePlanilha" encontrada, o 0 (zero) indica que ainda não foi encontrada
    ultimaPlanilha = 0

    ' desativa atualização de tela
    Application.ScreenUpdating = False
            
    ' percorre todas as planilhas existentes
    For i = 1 To Sheets.Count Step 1
        ' verifica os nomes das planilhas
        If Sheets(i).Name = nomePlanilha And ultimaPlanilha = 0 Then
            ' define que foi encontrada uma planilha com o nomePlanilha
            ultimaPlanilha = 1
        ElseIf Sheets(i).Name Like padraoNomePlanilha Then
            ' define posição de início, considerando o total de caracteres do "nomePlanilha", um espaço, um parenteses e a posição do primeiro número, por isso do 3
            posicaoInicio = Len(nomePlanilha) + 3
            
            ' pega o número que está entre os parênteses
            planilhaVerificada = CInt(Mid(Sheets(i).Name, posicaoInicio, Len(Sheets(i).Name) - posicaoInicio))

            ' verifica o número da planilha atual com o número da última encontrada
            If planilhaVerificada > ultimaPlanilha Then
                ' define o número da última planilha encontrada
                ultimaPlanilha = planilhaVerificada
            End If
        End If
    Next i

    ' seleciona a planiha atual
    Sheets(Sheets.Count).Select

    ' verifica qual o nome deverá ser considerado
    If ultimaPlanilha = 0 Then
        Sheets(Sheets.Count).Name = nomePlanilha
    Else
        Sheets(Sheets.Count).Name = nomePlanilha & " (" & CStr(ultimaPlanilha + 1) & ")"
    End If
    
    ' EXECUTA O FILTRO
    Sheets("Clientes").Columns("A:AH").AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Range("VT!Criteria"), CopyToRange:=Range( _
    "VT!Extract"), Unique:=False

    Range("Database").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("Criteria")

    ' ativa atualização de tela
    Application.ScreenUpdating = True

End Sub