So nao entendi o que esta errado.

Troquei todos pelos codigos e nao vi acontecer nada, salvo a formula da função procv que esta na coluna B

Nao entendi o que vc precisa.

Bom dia,
Ele funciona só naquele quadrado, mas se olhar na parte de baixo coluna A Llinha 9, ele não filtra... se vc mudar o código e apertar consulta de estoque ele dá erro na macro.
Depois que você trocar o código na coluna A linha 3, aperte o botão consulta de estoque que ele vai dá o erro, quando faz isso ele filtra só o item que vc colocou na coluna A linha 3, e joga todo os movimentos desse item na coluna A linha 9.

Olhei o codigo e ele so faz o a consulta do estoque se em A3 tiver Todos.

Vc precisa alterar o valor para uma variavel.

Teste assim

Public Sub lsConsultaEstoque()

Dim Cons As String

Cons = Range("A3").Value

Sheets("Consulta Estoque").Unprotect
Application.ScreenUpdating = False

Worksheets("Consulta Estoque").Rows("10:500000").Delete

If Cons <> "" Then
Plan4.Range("A1:L" & WorksheetFunction.CountA(Plan4.Columns(1)) + 1).Copy (Plan1.Cells(8, 1))
Else
Plan4.Range("$A$1:$A$" & WorksheetFunction.CountA(Plan4.Columns(1))).AutoFilter Field:=1, Criteria1:=Plan1.Cells(3, 1)
Plan4.Range("A1:L" & WorksheetFunction.CountA(Plan4.Columns(1)) + 1).Copy (Plan1.Cells(8, 1))
Plan4.Range("$A$1:$A$" & WorksheetFunction.CountA(Plan4.Columns(1))).AutoFilter
End If
lsRedimensionarTabela

Application.ScreenUpdating = True
Sheets("Consulta Estoque").Protect

End Sub

Substitua a macro de consulta por esta.

Deu certo não... ele filtra todos, e não só o item que coloquei no código da A3