Sub Maybe() With Sheets("Sheet1").Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row) .AutoFilter 1, 0 .Offset(1).SpecialCells(12).EntireRow.Delete End With ActiveSheet.AutoFilterMode = False End Sub