Excel - nach Klick auf Button Inhalte übertragen

Haaaalllooo Ihr lieben Admin-User.

Im Moment ist Cheffe ziemlich aktiv
Ich soll jetzt ein kleines Formular in Excel bauen. Wir arbeiten mit Excel 2016.

Es soll ein Formular werden, welches unten mehrere Zeilen hat, die nach und nach mit Daten gefüllt werden sollen.
Oben sollen dann die Eingabefelder sein, aus denen die Daten nach unten in die zu füllenden Zeilen übertragen werden sollen.
Dazu gibt es einen Button, über den die Daten per Klick nach unten in die Zellen übertragen werden sollen.
Gleichzeitig sollen mit dem Klick die zuvor ausgefüllten Felder auch gelöscht werden. Die Daten in den Zellen unten sollen natürlich erhalten bleiben

Damit Ihr besser versteht, wovon ich hier rede, habe ich mal ein Excel-Testformular gebastelt, wo Ihr sehen könnt, was in der Datei passieren soll. Ihr könnt sie hierüber runterladen.

Und hier auch mal ein Screenshot des Testformulars:

Wie Ihr seht, befinden sich in Zeile 19 schon Daten der vorherigen Übertragung.
Die Daten, die jetzt in Zeile 20 zu sehen sind wären also jetzt mit einem Klick auf den Button schon übertragen worden.
Im Beispiel ist der obere Eingabebereich (grüne Zellen) nicht gelöscht, was aber eben durch einen Klick auf den Button auch geschehen sollte.

Am Ende soll es einfach so sein, dass man oben im grünen Bereich immer wieder neue Daten eingeben kann, die dann per Klick auf den gelben Button nach unten übertragen und dann oben gelöscht werden, damit dort wieder neue Daten eingetragen werden können.

Wichtig wäre dabei, dass Excel immer schaut, ob im unteren Bereich (Zeile 19 - 29) eine Zeile schon gefüllt ist und dann automatisch die nächste Zeile nimmt

Ich hoffe, Ihr habt meine Erklärung verstanden. Aber mit der hochgeladenen Excel-Datei und dem Screenshot dürfte das für Euch sicher kein Problem sein.

Bin gespannt..........

Grüße von
Yan

Sub Felder_löschen()
'  
' Felder_löschen Makro  
' Eingabefelder löschen  
'  
    Range("B4:D4,B5,B6:D6,B7:D7,B8:D8,B9,B10,B11,B12").Select  
    Range("B12").Activate  
    Selection.ClearContents
    Range("A4").Select  
End Sub

Option Explicit
Private Sub CommandButton1_Click()
Dim nextRow As Long
nextRow = [a65536].End(xlUp).Row + 1
Range("A" & nextRow, "I" & nextRow) = [B4:D4,B5,B6:D6,B7:D7,B8:D8,B9,B10,B11,B12].Value  
[B4:D4,B5,B6:D6,B7:D7,B8:D8,B9,B10,B11,B12].Clear
End Sub

Sub DatenEinfügen()
    With ActiveSheet
        .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Resize(1, 9).Value = WorksheetFunction.Transpose(.Range("B4:B12"))  
        .Range("B4:B12").Value = ""  
    End With
End Sub

Sub Daten_übertragen()

With ActiveSheet
        .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Resize(1, 9).Value = WorksheetFunction.Transpose(.Range("B8,B9,B10,B11,B12,B14,C10,C14,D14,E14"))  
        .Range("B8,B9,B10,B11,B12,B14,C10,C14,D14,E14").Value = ""  
        Range("B8").Select  
    End With
End Sub

Sub Daten_übertragen()
    With ActiveSheet
        .Cells(Rows.Count, "E").End(xlUp).Offset(1, 0).Resize(1, 9).Value = Array(.Range("B8"), .Range("B9"), .Range("B10"), .Range("B11"), .Range("B14"), .Range("C10"), .Range("C14"), .Range("D14"), .Range("E14"))  
        .Range("B8,B9,B10,B11,B12,B14,C10,C14,D14,E14").Value = ""  
        Range("B8").Select  
    End With
End Sub