Code:
Option Explicit
Function DateToStr(d) As String
DateToStr = Replace(Format(d, "mm/dd/yyyy"), ".", "/")
End Function
Sub CurrentDate()
Range("E2").Value = Date
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1, Criteria1:= _
Array("="), Operator:=xlFilterValues, Criteria2:=Array(2, DateToStr(Range("E2").Value))
End Sub
Sub Add_Day_To_Date()
Range("E2").Value = Range("E2").Value + 1
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1, Criteria1:= _
Array("="), Operator:=xlFilterValues, Criteria2:=Array(2, DateToStr(Range("E2").Value))
End Sub
Sub Subtract_Day_From_Date()
Range("E2").Value = Range("E2").Value - 1
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1, Criteria1:= _
Array("="), Operator:=xlFilterValues, Criteria2:=Array(2, DateToStr(Range("E2").Value))
End Sub