Zeilen löschen wenn

Mein Makro durchläuft alle Zeilen und überprüft dabei ob
in Zelle x, eine Verknüpfung einen Wert ausgibt.
Wenn dies Wahr ist, geht es zur nächsten.
Wenn dies nicht Wahr ist, wird die Zeile gelöscht und die nächste überprüft.

Der Code sieht wie folgt aus:

Sub löschen()
On Error GoTo Fehler
Dim lR%, i%
ActiveSheet.Select
lR = Cells(Rows.Count, 1).End(xlUp).Row
For i = lR To 1 Step -1
If Cells(i, 1) = False Then
Rows(i).Delete
End If
Next i
Fehler:
End Sub

Das funktioniert alles einwandfrei, nur das Problem dabei ist,
das der Vorgang ziemlich lange dauert.
Wie kann ich das z.b auf 200 zellen beschränken?

Mfg Steffen.D