Sub Suppr_ALPHA_VIDE()
Dim l&, r As Range
Application.ScreenUpdating = False
l = ActiveSheet.UsedRange.Rows.Count
Columns("A:N").Sort key1:=Cells(2), Order1:=xlDescending, Header:=xlYes
Set r = Range("N2:N" & l)
r.FormulaR1C1 = "=IF(OR(ISTEXT(RC[-13]),ISBLANK(RC[-13])),""Staple"",1)"
r = Range("N2:N" & l).Value
r.SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
Columns(14).Clear
End Sub