Dim packDate1, DelivDate1 As Date
packDate1 = ThisWorkbook.Sheets(1).Range("B1")
DelivDate1 = ThisWorkbook.Sheets(1).Range("B2")
Workbooks.Open Filename:="test.xls", ReadOnly:=True
Sheets(strYear).Select
With ActiveSheet
    .Range("C2").AutoFilter Field:=3, Criteria1:=DateValue(packDate1)
    .Range("E2").AutoFilter Field:=5, Criteria1:=DateValue(DelivDate1)
End With