userform: werte in aktive zeile eintragen

Private Sub cmdNächste_Click()
Dim r As Long
Dim ws As Worksheet
Set ws = Worksheets("Bestand")
r = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ws.Range("A" & r).Value = txtAnzahl.Value
ws.Range("B" & r).Value = txtKatalogNr.Value
ws.Range("C" & r).Value = txtNrErgänzung.Value
ws.Range("E" & r).Value = txtBeschreibung.Value
ws.Range("F" & r).Value = txtKatalogwert.Value
ws.Range("G" & r).Value = txtFaktor.Value
txtAnzahl.Value = "1"
txtKatalogNr.Value = ""
txtNrErgänzung.Value = ""
txtBeschreibung.Value = ""
txtKatalogwert.Value = ""
txtFaktor.Value = "1,0"
txtAnzahl.SetFocus
End Sub