Hallo Regnar,
falls Dein Zellzeiger in einer Spalte steht, die bis zum Ende der Tabelle Einträge enthält (falls nicht, kann man ihn per Code dahin setzen), ist folgender Code der einfachste:
Private Sub Fertig_Click()
Dim iZeile as Integer
iZeile = Selection.End(xlDown).Row + 1
Tabelle1.Cells(iZeile, 2).Value = Zollnummer
etc.
Erstse freie Spalte:
iSpalte = Selection.End(xlRight).Column + 1
Ich hoffe, es hilft Dir weiter.
Grüße aus Recklinghausen
Rainer Weiß