Olá colega,

Acho que você esqueceu de anexar o arquivo.

Fabio,Bom Dia! Realmente acabei me desatentando a isso, mas muito obrigado pelo seu comentario!

veja se é isto que deseja!!!

Não, está vendo que tem valores nas celular um exemplo é que só esta trazendo valores maiores que >300 ao invés de deixar esse número a mostra na planilha gostaria de deixar dentro da programação VBA

ai vai

Boa-noite,
Tenta assim:

Sub Filtrar()
'
' Filtrar Macro
'
' Atalho do teclado: Ctrl+a
ActiveSheet.Range("$A$1:$f$831").AutoFilter FIELD:=5, Criteria1:=Plan1.Range("L2")
ActiveSheet.Range("$A$1:$f$831").AutoFilter FIELD:=1, Criteria1:=Plan1.Range("H2")
Range("A2:F831").Copy
Range("H7:M7").PasteSpecial
ActiveSheet.Range("$A$1:$f$831").AutoFilter FIELD:=5, Criteria1:="<> "
ActiveSheet.Range("$A$1:$f$831").AutoFilter FIELD:=1, Criteria1:="<> "
Range("H7:M7").Select
End Sub

att,

Francisco