rij plakken onder laatste regel via vba

[CCuppen]

Dag,

Wederom een vraag van mijn kant uit.
Het is me gelukt om met behulp van een commandknop een bepaalde rij te kopieren.
echter 'plakt' hij die rij on mijn actieve cel.

Is het ook mogelijk om met behulp van de juiste code ervoor te zorgen dat het niet uitmaakt op welke cel ik 'sta' maar altijd de regel 'plakt' na de laatste regel.

Hieronder staat de formule welke ik nu gebruik.

Private Sub CommandButton1_Click()
Sheets("Ruimtelijke plannen").Rows("4:4").Copy
ActiveCell.EntireRow.Insert Shift:=xlDown
End Sub

Ik moet dus iets doen ipv ActiveCell. Maar wat?


dank jullie alvast.

gr.
Casper

 

[Haije]

Casper,

zoiets?

Private Sub CommandButton1_Click()
Sheets("Ruimtelijke plannen").Rows("4:4").Copy
[A65536].End(xlUp).Offset(1).Select
ActiveSheet.Paste
End sub