Opslaan op ander tabblad via knop

[Bas14]

Goedemorgen,

ik wil graag via een knop op tabblad 1 de ingevulde data opslaan in rij 3 op tabblad 2. De gegevens op tabblad 1 in kolom C kunnen vervolgens automatisch verwijderd worden nadat deze opgeslagen zijn op tabblad 2. Bij een volgende keer opslaan van nieuwe data wil ik dat de nieuwste data in rij 3 staat op tabblad 2, terwijl de wat oudere data dan een rij naar beneden opschuiven. Ik heb een voorbeeldbestand toegevoegd. Kan iemand mij verder helpen?

Gr Bas

 

[Timshel]

Je formulier beginnen in B3 in plaats van A1: onhandig
Lege rijen ertussen: onhandig.
Maar nu zit je er dus aan vast.

Sub tsh()
    Dim Br(9)
    Dim i As Long
    
    For i = 0 To 8
        Br(i) = Range("C3").Offset(i * 2).Value
    Next
    Br(9) = Now()
    Range("C3:C19").ClearContents
    With Sheets("Blad2")
        .Rows(3).Insert Shift:=xlDown
        .Range("B3:K3") = Br
    End With
End Sub

 

[VenA]

of

Sub VenA()
  With Sheets("Blad2")
    .Rows(3).Insert
    .Range("B3:K3") = Split(Join(Application.Transpose(Sheets("Blad1").Range("B3:B19")), "|") & "||" & Sheets("Blad1").Range("C21"), "||")
  End With
End Sub