Fehler bei Range und Datenübergabe

hab ein kleines problem.

Sub Kunden_eintragen()
Dim KdNr As String

KdNr = InputBox("Geben Sie die neue Kundennummer ein:")
Range("A65536").End(xlUp).Offset(1, 1).Select
Range(ActiveCell.Row, 1) = KdNr
End Sub

ich möchte per inputbox eine kundennummer eingeben die er in die letzte zelle einträgt.

er springt problemlos zu dieser zelle, aber
Range(ActiveCell.Row, 1) = KdNr

spuckt mir immer einen lauzeitfehlerfehler aus

was muss ich tun damit die variable KdNr genau in diese letze Zeile geschrieben wird die ja auch problemlos ermittelt wird?

danke im voraus