Filter & Delete Entire Row
<p>I am trying to build a code that could filter and delete some 35,000 rows.</p>

<p>I used the below codes but it is taking lot of time(more than 10 mins), can anyone please help me to make it quicker?</p>

<p>Code 1 : </p>

<pre><code>Range("$A$1:$S$50000").AutoFilter Field:=19, Criteria1:="Delete"
ActiveSheet.AutoFilter.Range.Offset(1, 0).Rows.SpecialCells(xlCellTypeVisible).Delete (xlShiftUp)
</code></pre>

<p>Code 2 : </p>

<pre><code>Dim RngToDelete As Range
Range("$A$1:$S$50000").AutoFilter Field:=19, Criteria1:="Delete"
Set RngToDelete = Selection.SpecialCells(xlCellTypeVisible)
RngToDelete.Delete
</code></pre>

<p>Thanks,
Amith</p>