Makro: Wort ersetzen bis letzte Zeile von...

Sub fixed_behoben()
Sheets("Datenbasis").Select
ActiveWindow.SmallScroll ToRight:=-3
Columns("I:I").Select
Selection.Replace What:="Fixed", Replacement:="Behoben", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("Fälligkeit").Select
End Sub

Mein Problem ist allerdings folgendes:
Dort wo nichts steht soll "nicht erledigt" stehen.
Aber wenn ich leere Zellen durch "nicht erledigt" ersetzte füllt er mir die ganze Spalte wo nichts steht mit "nicht erledigt" auf.
Er soll dies aber nur machen bis zum letzten Eintrag von Spalte A.
D.h. wenn in Spalte A insgesamt 50 Einträge sind. Dann soll er in Spalte I auch nur die ersten 50 prüfen. Und hier dann Fixed durch Behoben und leere Zellinhalte durch "nicht erledigt" ersetzten