Option Explicit
Sub A_Filter_Copy()
Dim CriteriaU As Double
Dim CriteriaL As Double
CriteriaU = ActiveSheet.Cells(1, 8) 'H1
CriteriaL = ActiveSheet.Cells(2, 8) 'H2
'MsgBox CriteriaU & " " & CriteriaL
Application.ScreenUpdating = False
With ActiveSheet
.Range("F1", .Range("F1").End(xlDown)).AutoFilter Field:=1, _
Criteria1:=">=" & CriteriaU, Operator:=xlAnd, Criteria2:="<=" & CriteriaL
.AutoFilter.Range.Copy
.Range("A" & Rows.Count).End(xlUp)(2).PasteSpecial Paste:=xlPasteValues
Sheets("Sheet3").Range("A" & Rows.Count).End(xlUp)(2).PasteSpecial Paste:=xlPasteValues
.AutoFilterMode = False
End With
Application.ScreenUpdating = False
Application.CutCopyMode = False
End Sub