filter by today's date

Hi I need to filter a worksheet if the date dd/mm/yy in column 5 is =today()-182
Until now I've been ok filtering by strings etc but...

Private Sub CB_Think25_Click()
 Application.ScreenUpdating = False    ' turns off screen refreshing.

    Dim LRow2            As String
    Dept = "Bakery"
    'sets the variables wsM equal to Main worksheet and wsM2 equal to Main2
    Set wsM = Sheets("Main")
Set wsM2 = Sheets("Main2")
    LRow2 = 0
    'reset main
        Sheets("main").Select
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
    'select the Main2 worksheet
    With wsM2
    wsM2.UsedRange.Clear
        'select all the cells
'THIS NEXT LINE
        wsM.UsedRange.AutoFilter Field:=3, Criteria1:=Dept
        wsM.Columns("b:b").Copy .Range("a1")
        wsM.Columns("d:d").Copy .Range("b1")
        wsM.Columns("f:f").Copy .Range("c1")
        wsM.Columns("q:q").Copy .Range("e1")
        wsM.Columns("r:r").Copy .Range("g1")
        wsM.Columns("g:g").Copy .Range("h1")