Hallo,

in meiner Beispieldatei will ich aus Tabellenblatt 1 bestimmte Informationen in Tabellenblatt 2  durch klick auf einen Button kopieren wenn eine Bedingung erfüllt ist.

Insofern die Bedingung erfüllt ist sollen die Infos in Tabellenblatt 2 übernommen werden und zwar ohne Leerzeilen. (Da nicht jede zeile die Bedingung erfüllt)

Den Kopiervorgang unter der Bedingung habe ich schon programmiert --> Über eine komplette und vorallem elegantere Lösung bin ich dankbar!

Des weiteren habe ich den Code soweit kommentiert, dass er nachvollziehbar ist was ich damit erreichen will.

Lediglich die freien Zeilen gilt es noch zu eliminieren (am besten ohne die komplette Zeile zu löschen) 

Hier der Link zur Beispieldatei: https://workupload.com/file/Ru99BLdM

Über jegliche Hilfe bin ich dankbar!