This if the header row is Row10
ActiveSheet.Range("$A$10:$P$10").AutoFilter Field:=15, Criteria1:="yes"