ISIDRO2016,

Boa tarde!

Se o critério, no exemplo que você enviou é > que 09/08/2017 e < do que 11/08/2017, então o resultado esperado não pode ser o que você exemplificou. O resultado seria apenas o pedido número 16 do dia 10/08/2017.

Você não precisa de macro para isso. Pode fazer com o próprio filtro do Excel. Veja no exemplo anexo.

Irmão,

Já agradeço pela atenção,
Eu preciso da macro, porque essa será uma planilha de ponte para outra e que terá que trocar posições de colunas para encaixar em outra aba.

Att.
NIlson

ISIDRO2016,

Ok. Segue com Macro.

Boa tarde,
Wagner,

Eu testei, só que o critério que coloquei abaixo não filtrou, dê uma olhada no anexo que apresentou o erro.
CRITÉRIO DO FILTRO
> 10/08/2017
< 13/08/2017

teria que aparecer:
PEDIDO DATA CLIENTE END
17 11/08/2017 NOME3 RUA3
18 12/08/2017 NOME4 RUA4

só que apareceu assim, vazio:
PEDIDO DATA CLIENTE END

Paz e Bem.

Sub FiltrarV2()
 Range("$A$1:$D$" & Cells(Cells.Rows.Count, 1).End(3).Row).AutoFilter Field:=2, Criteria1:= _
 ">" & Format([G2], "mm/dd/yyyy"), Operator:=xlAnd, Criteria2:="<" & Format([G3], "mm/dd/yyyy")
End Sub

Apesar da rotina postada pelo Osvaldo funcionar corretamente, só para entendimento, na rotina apresentada pelo Wagner, para que funcione corrretamente, temos de tirar a definição de DATE das Variáveis DataIn e DataFim

ficando

Dim DataIn
    Dim DataFim

Como temos a conversão usando o CDate as mesmas entram em conflito, não gerando erro, mas sim não convertendo a data "13/08/2017" para o formato indicado "mm/dd/yyyy" devido o último mes ser 12, e eliminando a definição DATE temos a filtragem correta, então para a rotina funcionar com datas acima do dia 12 a mesma tem de ficar conforme abaixo :

Sub Filtrar()
    
    Dim UltimaLinha As Long
    Dim DataIn
    Dim DataFim
    
    DataIn = CDate(Range("G2").Value)
    DataFim = CDate(Range("G3").Value)
    
    UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 1).End(xlUp).Row
    If UltimaLinha < 5 Then UltimaLinha = 5
    
    
    DataIn = Format(Range("G2"), "mm/dd/yyyy")
    DataFim = Format(Range("G3"), "mm/dd/yyyy")
    
    ActiveSheet.Range("$A$1:$D$" & UltimaLinha).AutoFilter Field:=2, Criteria1:= _
    ">" & DataIn, Operator:=xlAnd, Criteria2:="<" & DataFim

End Sub

Trabalhar com Datas no excel é um saco, rsrsrs

[]s

Boa tarde,

funcionou perfeitamente, e já agradeço mais uma vez.

Mauro, Que Deus te abençoe e a todos do site.

Paz e Bem.