Range("AP2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(IF(MATCH(RC[-32],R2C[-32]:RC[-32],0)<ROW()-ROW(R2C[-32])+1,""double"","""")),"""",IF(MATCH(RC[-32],R2C[-32]:RC[-32],0)<ROW()-ROW(R2C[-32])+1,""double"",""""))"
Range("AP2").Select
Selection.AutoFill Destination:=Range("AP2:AP9617"), Type:=xlFillDefault
Range("AP2:AP9617").Select