letzte leere Zeile iin Tabelle

Habe folgendes Problem,
In einer Tabelle stehen in Spalte A Zahlen.
In einer UserForm folgender Code
Dim i
i = Cells(Rows.Count, 1).End(xlUp).Value
TextBox1.Text = i + 1

(die letzte Zahl ausgeben und um eins erhöhen)
Wenn in der letzten freien Zelle der Spalte A nun eine Formel steht, bringt er mir eine Fehlermeldung.
Formel sollte aber stehen bleiben damit man eventuell auch ohne UserForm arbeiten kann.
Wo liegt der Fehler oder hat jemand eine Lösung ?
Mit Dank im vorraus.
Michael