Delete rows in a different way
I used to delete rows by looping through those rows and use Range().Delete xlshiftUp for rows need to be deleted.
But that process takes too long if we have too many rows to delete.
As an alternative method, we can use 1 delete command after searching for those rows.
This is the function to do that, it is not complete, and not to be used out-of-the-box, it needs some tweaks first.
' rngDealLoad_Key_Found. is the range object that has rows we need to loop through.
Dim rngDelete As Range
Set rngDelete = Nothing
On Error Resume Next
Set rngDelete = rngDealLoad_Key_Found.SpecialCells(xlCellTypeFormulas, 23)
If Not rngDelete Is Nothing Then
On Error GoTo 0