Office: (Office 365) VBA gefüllte Spalten/Zellen bis zur nächsten leeren Zählen

Hallo zusammen,

ich bin neu auf dem Gebiet, habt Nachsicht.
Ich habe folgendes Problem...

Ich habe in Tabellenblatt 1 Zellen die beschrieben werden, diese werden über einen Button in Zeile 4 fest eingetragen. Wir ein neuer Eintrag hinzugefügt wird dieser wieder in Zeile 4 eingetragen und der vorherige rutscht in Zeile 5.

Nun möchte ich noch programmieren, dass immer, wenn ich das Programm neu öffne nach dem letzten Eintrag eine Leerzeile eingefügt wird, sprich so in etwa:

(Programm neu geöffnet und neu eigetragen)
Hallo1
Hallo1
Hallo1

(Vorherig benutzt und oben drüber eine neue Leerzeile zum optischen Abstand zum neun Eintrag)
Hallo
Hallo
Hallo

Nun zur Frage: Wie programmiere ich, dass die Anzahl der neuen Einträge bis zur Leerzeile gezählt werden und diese dann in Beispielsweise in B2 angezeigt werden? Im obigen Beispiel sollen die 3 Einträge- oder dann ggf. mehr- bei B2 = 3 anzeigen - oder mehr wenn mehr befüllt sind-.


Ich bedanke mich schon mal recht herzlich für Eure Unterstützung.
Ps. ich habe schon über ne Stunde nun nach Lösungen gesucht
Gruß
Sascha

 

Hallo Sasch,

LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)

Warum Leerrrzeile nach letzten Satz, die ist doch schon Leer