Filter By Date & Count Resulting Data

I am working on project of doing Turn around time Analysis of the volumes of work recieved before 12:30PM and after over a weeks time. My data consist of Work ref, Datein, Dateout, Timein, Timeout. To carry this analysis I have to Mannually filer the data as per Datein / Timein and Dateout and then count the no of work ref completed within Same day or one day or more than one day for each date of a given week. I recorded a Macro which gives count of no of work. for one particular date of week and repeated the same for each 5 working dates of given week. this Macro has gone to big and I want to use some looping technique which would change my filtering criteria. I tried doing this by assining a variable to Criteria but Macro gives no values.

Range("A1").Select
Selection.AutoFilter
Range("B1").Select
Selection.AutoFilter Field:=2, Criteria1:="=04/02/08", Operator:=xlAnd
Range("E1").Select
Selection.AutoFilter Field:=5, Criteria1:="<=12:30", Operator:=xlAnd
Range("IV1").Value = "=SUBTOTAL(9,H2:H272)"
Selection.AutoFilter Field:=9, Criteria1:="=L*", Operator:=xlAnd
ActiveSheet.Calculate
Range("sheet1!B3").Value = Range("IV1").Value
Selection.AutoFilter Field:=9, Criteria1:="=S*", Operator:=xlAnd
ActiveSheet.Calculate
Range("sheet1!B4").Value = Range("IV1").Value

I want to repeate the above code for different dates of week 04/02/2008 to 08/02/2008. How to change Criteria using Loopin technique.