Macro lege cel invoegen + formule toevoegen

[kaischumacher]

Hoi allen,

In het bijgevoegde bestand heb ik een voorbeeld gemaakt van een bestand welke ik graag in een macro bestand zie.
Echter heb ik geen ervaring met macro's en lukt dit ook niet met de al gevonden informatie op dit forum.
Hierdoor hoop ik graag dat iemand mij hier kan helpen.
Het eerste blad is hoe de gegevens aangeleverd worden.
Het tweede blad is hoe ik dit door middel van een macro voor mij zie (het liefst nog door op een knop of iets dergelijks te klikken).
Iemand die mij hiermee kan helpen?

P.s. De gegevens die in het tweede blad zijn weggelaten, heb ik het liefst weg, maar het is geen vereiste.

Alvast super bedankt!
Bekijk bijlage Voorbeeld.xlsx

 

[kaischumacher]

Het is gelukt

Dim i As Integer
For i = 1 To Selection.CurrentRegion.Rows.Count - 1
ActiveCell.Offset(1, 0).Range("A1:A1").Select
Rows(ActiveCell.Row).Copy
Rows(ActiveCell.Row).Offset(1).Insert
Rows.Copy
ActiveCell.Offset(1, 0).Select
Next i