Yesterday Date Filter

Hi, I am trying to create a macro that must update data daily. It must filter a list of data to show yesterday's date and count those orders only. Currently I have the yesterday filter applied and the code looks like this:

ActiveSheet.Range("$A$4:$AR$607").AutoFilter Field:=2, Criteria1:= _
xlFilterYesterday, Operator:=xlFilterDynamic

My problem is I need to exclude weekends and show workdays only. On Monday, it will currently search for Sunday's date. I need it to search for last Friday's date. Is there a way I can add an IF clause or use some kind of advanced criteria? Thanks so much for the help!

Wow that worked!!!! Thank you so much!!!!