Sub Macro7()
Sheet1.AutoFilter
ActiveSheet.Range("$A$2:$T$6277").AutoFilter Field:=10, Criteria1:="Wk Data"
ActiveSheet.Range("$A$2:$T$6277").AutoFilter Field:=4, Operator:= _
xlFilterValues, Criteria2:=Array(2, "9/22/2010")
End Sub
Can the blue area be something like...