Macro om rijen in te voegen

[MBBS]

Ik heb een macro samengesteld (uit voorbeelden van Cobbe, snb en Warme bakkertje) en heb daarin nog een klein probleemje...

Ik zoek nu nog enkele vrije rijen in te voegen en daar vind ik niet de juiste codes voor.

Wordt wel duidelijk in bijlage hoop ik.

In een macro afkomstig van Warme bakkertje stond volgende lijn.
Union(cl.Offset(, 1).Resize(, 2), cl.Offset(, 4)).Copy [Ingeschreven!D65536].End(xlUp).Offset(1)

Ze kopieert bepaalde kolommen... maar hoe werkt deze lijn nu juist.
Ik heb de woorden al wel individueel opgezocht maar krijg maar niet de juiste samenhang.
Iets om de hoogste vrije cel op te zoeken vanaf onderaan, Offset wordt gebruikt om opzij of omhoog te gaan... maar echt begrijpen...

Zelfs al snapt men er soms geen snars van... het is verdorie verslavend...

 

[verluc]

Misschien :

Sub Toevoegen()
Range("G65536").End(xlUp).Offset(0, -1).Select
ActiveCell.EntireRow.Insert     
End Sub

Eventueel Range aanpassen

 

[snb]

Het lijkt me eenvoudiger te zorgen dat nooit rijen hoeven te worden 'ingevoegd'. Een slimme opbouw van je werkblad voorkomt veel VBA-code.
Waarom niet de gegeven van mannen en vrouwen naast elkaar in plaats van onder elkaar ? Eventueel een apart blad voor mannen en een voor vrouwen.

 

[MBBS]

Bedankt voor de hulp.

Soms is het niet altijd mogelijk om dezelfde layout te hanteren.
In mijn model is dit nu wel zo goed als hetzelfde maar de export kan soms naar verschillende formulieren zijn.

Ik heb ook nog wat geëxperimenteerd met een andere layout en ook daar stuit ik op problemen, maar ik ga eerst deze macro invoegen en plaats later wel het aangepaste bestand.