'ActiveSheet.Range("$A$10:$P$2179").AutoFilter Field:=15, Criteria1:="yes"'