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ß