Letzte Zeile

beiliegenden code habe ich aus einem anderen des Forums "abgewandelt" auf meine bedürfnisse. Jetzt möchte ich nur noch erreichen, dass die Einträge in Spalte A bei "A200" enden; derzeit läut es bis ca. Zeile 2010 durch:

Sub AnfSaldo_Berechnen()
Dim leZeile As Integer
Dim iRow%
leZeile = Range("A200")
iRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A6") = "=e5" ' Ermittlung Anfangssaldo
With Range("A6:A200" & iRow)
.FillDown
End With
Range("A1").Select
End Sub

Vielen Dank!

mfg