[VBA] Μεγάλη καθυστέρηση εκτέλεσης macro

[Βασίλης Καραχάλιος]

Καλημέρα,

Σε αρχείο με περιπου 2000 γραμμές θέλω να διαγράψω γραμμές οι οποιες σε μία στήλη δεν περιέχουν την τιμή που θέλω...

    Sheets("Sheet1 (4)").Select
      
    I = Cells(Rows.Count, "D").End(xlUp).Row
    'Range("d" & (I + 1)) = "last row"
    
        For K = I To 1 Step -1
        If Range("D" & K) <> "Bounced and cleared" Then
            Range("D" & K).EntireRow.Delete
          
        End If
    
    Next K

Χρησιμοποίησα λοιπόν τον παραπάνω κώδικα..
Παρατήρησα όμως οτι καθυστερεί αρκετά ώστε να μου δώσει το επιθυμητό αποτέλεσμα
Μήπως υπάρχει πιό σύντομος τρόπος ;
Μπορείτε να μου δώσετε κατευθύνσεις να το ψάξω ;