Gravei a macro abaixo e acrescentei as células com os critérios.

Testei com B2 = 1, D2 = 5, B3 = 2 e D3 = 4, o filtro exibe as quadras 1, 3 e 5.

Sub Filtro()
  ActiveSheet.ListObjects("Tabela1").Range.AutoFilter Field:=4, Criteria1:= _
      ">=" & [B2], Operator:=xlAnd, Criteria2:="<=" & [D2]
  ActiveSheet.ListObjects("Tabela1").Range.AutoFilter Field:=4, Criteria1:= _
      "<>" & [B3], Operator:=xlAnd, Criteria2:="<>" & [D3]
End Sub

Gravei a macro abaixo e acrescentei as células com os critérios.

Testei com B2 = 1, D2 = 5, B3 = 2 e D3 = 4, o filtro exibe as quadras 1, 3 e 5.

Sub Filtro()
  ActiveSheet.ListObjects("Tabela1").Range.AutoFilter Field:=4, Criteria1:= _
      ">=" & [B2], Operator:=xlAnd, Criteria2:="<=" & [D2]
  ActiveSheet.ListObjects("Tabela1").Range.AutoFilter Field:=4, Criteria1:= _
      "<>" & [B3], Operator:=xlAnd, Criteria2:="<>" & [D3]
End Sub

Osvaldo, boa noite!

Você apresentou uma macro mais simples do que eu imaginava que seria, gostei! Porém, ela não está funcionando para intervalos do tipo quadras 2 a 4, excluindo a quadra 3. Ao fazer isso, ela mostra os dados das quadras 1 e 5 também.

Pelo que verifiquei, a macro executa a primeira linha, mas ao executar a segunda linha, ela desfaz o que já tinha feito na primeira linha. Sabe como podemos resolver isso?

Porém, ela não está funcionando para intervalos do tipo quadras 2 a 4, excluindo a quadra 3. Ao fazer isso, ela mostra os dados das quadras 1 e 5 também.
Eu gravei uma macro com critérios casuais apenas como exemplo, obviamente ela não servirá para todas as situações que você precisa. Sugiro que você grave macros com os critérios que você precisa e depois coloque as macros aqui para ajustes, se necessário.

Sugestão - para responder clique em "Responder" que está abaixo da última postagem, só clique em "Citar" se necessário.