Rijen kopiëren. Aantal aangeven in kolom

[Tweety1]

Ik ben opzoek naar een macro die rijen kopieert die in een tabel staan. De aantal keer dat ze gekopieerd moeten worden staan in kolom H.

Voorbeeld

Bekijk bijlage Kopiëren.xlsx

Gr.

Kasper

 

[Niels28]

Sub kopie()
 For Each cl In Range("Tabel1[[#All],[Aantal rijen Kopiëren]]")
 If cl.Row <> 1 Then Cells(Rows.Count, "j").End(xlUp).Offset(1).Resize(cl.Value, 8) = cl.Offset(, -7).Resize(1, 8).Value
 Next
End Sub

Niels

 

[Tweety1]

Thanks