Problem mit Loop-Schleife

Folgender Code sucht die erste leere Zelle in Spalte A und trägt das Ergebnis des Userforms ein:

Private Sub OK_Button_Click()

'Finden der ersten leeren Zelle
z = 1
Do While Cells(z, 1) <> ""
z = z + 1
Loop

'Einfügen des Eingabewertes
Cells(z, 1) = Dat_Box

So, nun soll Excel das solange machen, bis eine Zelle in Spalte A belegt ist. (A1 und A10 enthält Wert, in A2 bis A9 soll der Wert Dat_Box eingetragen werden.)

Gruss und dankeschön

Cathy