[Spirosgr]

Καλημέρα
Δεν βλέπω μεγάλη καθυστέρηση.
Δοκίμασε το παρακάτω:

Με τον κώδικα αυτόν:

Sub postNumb()
    Dim i As Long
    For i = 1 To 3000
        Cells(i, 4).Value = i
    Next i
End Sub

βάζουμε στα γρήγορα για δοκιμές σε 3000 γραμμές, d στήλη αριθμούς από 1 - 3000

και με αυτόν:

Sub test()
    Dim LastRow As Long, i As Long
    LastRow = Cells(Rows.Count, 4).End(xlUp).Row
    For i = LastRow To 1 Step -1
        If Cells(i, 4) < 1000 Then
            Cells(i, 4).EntireRow.Delete
        End If
    Next i
End Sub

διαγράφουμε τα < από 1000

χρόνος εκτέλεσης 0,11 sec