Boa tarde!!

Só lembrando, que os arquivos posto em anexo devem ser compactados, tente lembrar na próxima.

Att

Caríssimo,

Crie um Módulo Auxiliar em seu arquivo, e cole dentro do mesmo o seguinte:

Sub AutoFiltroSuprimentos()
Application.Worksheets(2).Select
       Range("A1").AutoFilter Field:=2, Criteria1:="Suprimentos", Operator:=xlOr, _
           Criteria2:="Suprimentos"
End Sub

O serviço está um pouco amarrado aqui, ficou difícil fazer um exemplo, mas basta modificar este mesmo código ( pode colocar todos no mesmo módulo )

Basta mudar os campos onde está Suprimentos, para os outros filtros desejados, Nomeie cada Sub com um nome e crie os botões, ou associe as células cada um com seu respectivo desejo.

Espero ter ajudado.

Att.

Perdão pelo duplo post, mas esqueci.

Lembre de criar este sub também:

   Sub ApagarFiltro()
       Range("A1").AutoFilter
   End Sub

E coloque-o de forma a ser executado antes do sub acima, pois retornará erro se a sheet já estiver filtrada.

Att.

Diego, você citou "ao dar um duplo clique em uma célula da primeira planilha".

Então aproveitando a rotina do Arthur e adaptando a questão do Duplo Clique, proceda da seguinte forma:
Na Aba "Lista 1" clique com o Botão direito e escolha "Exibir Código", na tela que abrir cole a rotina abaixo ;

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A2:A8")) Is Nothing Then
        
        If Target.Value <> "" Then
            
            On Error Resume Next
            
            rValor = Target.Value
            Cancel = Err.Number = 0
            
            Call AutoFiltroSuprimentos
            
        End If
    End If

End Sub

Depois em um Módulo, coloque a rotina adaptada do Arthur:

Option Explicit

Public rValor

Sub AutoFiltroSuprimentos()

    Application.Worksheets(2).Select
    
        Range("A1").AutoFilter Field:=2, Criteria1:=rValor, Operator:=xlOr, _
           Criteria2:=rValor, VisibleDropDown:=False
           
        Range("B1").AutoFilter Field:=1, VisibleDropDown:=False
        
End Sub

Ao dar um Duplo Clique em uma das Celulas definidas no Intervalo : Target, Range("A2:A8"), se a mesma contiver dado, o mesmo é passado para a Variavel rValor, e depois é chamada a rotina "AutoFiltroSuprimentos", que utiliza esta Variavel para a filtragem.
Se no intervalo clicado a celula estiver em branco a rotina não é executada, tambem se der duplo cleique em qq outra celula fora do intervalo definido , tambem não é executada a rotina, e sempre que uma celula estiver em Branco a mesma é habilitada para edição.

[]s

Bom dia!!

Segue um modelo, como exemplo.

Att

Muito obrigado pessoal!! Com a ajuda de todos deu certinho!!
Valeu!!!

Boa noite!!

Obrigado por retornar, precisando é só falar!!

Att