Hey All - happy friday!

I have created a work book that runs a report based on criteria input from a userform - all works fine and does what I need it to do.

The only issue is, the first code to remove data where column N contains "N" works really slow - I have one that runs afterwards that deletes a few other rows and this one runs quite fast - but I am using the same code.

The issue is, the first time it runs, there is probably around 6,000 rows of data - but the first one gets it down to around 2,000 - so I know thats why the second runs a bit quicker. But out of curiosity, is there a way of making the code run a bit quicker?

the current code I am using is

Dim c As Range
Dim SrchRng

Set SrchRng = ActiveSheet.Range("N2", ActiveSheet.Range("N65536").End(xlUp))
Do
Set c = SrchRng.Find("N", LookIn:=xlValues)
If Not c Is Nothing Then c.EntireRow.Delete
Loop While Not c Is Nothing
Set SrchRng = Nothing