Private Sub CommandButton1_Click()
Dim flds, i%
flds = Array([{17,11}], [{10,12}], [{13,13}], [{5,14}]) '
Application.ScreenUpdating = False
X = DateValue(DateFrom): Y = DateValue((DateTo))
With Sheets("OPT")
If .Range("U5") = "OPT" Then
For i = 0 To UBound(flds, 1)
.ListObjects("OPT").Range.AutoFilter CLng(flds(i)(1)), "=" & .Cells(CLng(flds(i)(2)), "U")
Next i
.ListObjects("OPT").Range.AutoFilter 6, ">=" & CLng(X), xlAnd, "<=" & CLng(Y)
End If
End With
Me.Hide
End Sub