Selectie met formules kopieren

[Gert007]

Hallo , ik ben een rapport aan t maken op basis van een userform. In dit userform is het mogelijk meerdere selecties te maken dus je weet nooit op voorhand hoeveel items er worden toegevoegd .
Omdat dit ergens wordt tussen gevoegd Laat ik telkens ik iets toevoeg laat ik alles een regel zakken , omdat er nog gegevens komen na de lijst items.

dit is de code wat ik gebruik
With UserForm1.lstAanslMog
For lCount = 0 To .ListCount - 1
If .Selected(lCount) = True Then
Blad1.Cells(i, 5) = .List(lCount)
i = i + 1
Range(Cells(i, 1), Cells(i, 20)).Select
Selection.Insert
End If
Next
End With

Probleem zit em erin dat de regel die hij kopieert formules bevat (om prijsetc te berekenen) maar hij kopieert de formules niet mee nr de volgende regel iemand een idee ????

Stank You

 

[Gert007]

PROBLEM SOLVED
Gewoon ne selection.copy gedaan vr de insert , had dit al eens gedaan was het gewoon even kwijt