Filtro data Incrementado

Prezados muito bom dia

Gostaria de saber como faço para variar o valro data dentro de um filtro , sendo ele sempre incrementado
Exemplo: o programa sempre vai filtrar o filtro 2 de 1/1/2016 a 31/12/2019

porém estou fazendo isso a mão pois n estou conseguindo incrementar ele no VBA

codigo:

Sheets(“Plan1”).Select

ActiveSheet.Range("$A$1:$G$30148").AutoFilter Field:=1, Criteria1:=Plan1.Cells(COD, 1).Value

ActiveSheet.Range("$A$1:$G$30148").AutoFilter Field:=2, Criteria1:="S"

ActiveSheet.Range("$A$1:$G$30148").AutoFilter Field:=6, Operator:= _
    xlFilterValues, Criteria2:=Array(0, "12/31/2019")

Poderiam me ajudar a como formatar essa variavel e como aplicar ela no Auto Filter?