Public Sub MyFilter()
Dim lngStart As Long, lngEnd As Long
lngStart = Range("B2").Value 'assume this is the start date
lngEnd = Range("B3").Value 'assume this is the end date
'assume you have field name / label in D5
Range("AC6:AC30").AutoFilter field:=1, _
Criteria1:=">=" & lngStart, _
Operator:=xlAnd, _
Criteria2:="<=" & lngEnd
End Sub
For ease of uploading, please copy and paste the code into a snippet on a comment rather than a new file.