VBA双柱过滤器无法正常工作

Question

我正在尝试对在特定时间'AND'之后出现的警报进行排序。我需要一个双重滤波器，即两个独立的列。当我提到代码中的确切时间时，我的代码工作正常，但是当我传递变量时，它不起作用。我没有收到任何错误，但没有数据被过滤并复制到另一张表。 Download link for macro

Sub Macro1()

Dim a, b As Long

a = Sheets("Sheet3").Cells(1, 1)
b = Sheets("Sheet3").Cells(1, 2)
Rows("2:2").Select
Selection.AutoFilter
ActiveSheet.Range("$A$2:$F$85").AutoFilter Field:=2, Criteria1:= _
    ">=4/12/2017 14:00", Operator:=xlAnd
ActiveSheet.Range("$A$2:$F$85").AutoFilter Field:=3, Criteria1:= _
    "<=4/12/2017 16:00", Operator:=xlAnd
ActiveWindow.SmallScroll Down:=-8
Range("A1:F85").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste

End Sub

我的示例数据：