Change a date in a macro to a cell reference

Hello,
I have just started trying to use macros and have built one which copies and pastes data from one sheet to another sheet, based on certain criteria.
One of these criteria is the month - at the moment this is a fixed date but I need this to be a cell reference. Then, when you update the cell reference to a different value, the data which is returned will change.
The macro is as below:

Sheets("CCL45").Select
    ActiveWindow.SmallScroll ToRight:=43
    ActiveSheet.Range("$A$1:$BH$650").AutoFilter Field:=52, Operator:= _
        xlFilterValues, Criteria2:=Array(1, "7/1/2013")
    ActiveWindow.SmallScroll ToRight:=-13
    ActiveSheet.Range("$A$1:$BH$650").AutoFilter Field:=34, Criteria1:= _
        "=PHONE FIX", Operator:=xlOr, Criteria2:="=PHONE FIX UNSUCCESSFUL"
    ActiveWindow.SmallScroll ToRight:=-24
    Range("L182:L631").Select
    Selection.Copy
    Sheets("Phone Fixing").Select
    Range("A50").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=6

And it's the '7/1/2013' I want to be able to change to a cell reference. Help much appreciated, thanks!