Regel invoegen op einde van rij mbv. makro

[Albatros]

Hoi,

Via de makrorecorder kom ik er niet uit.
Ik wil onder het einde van een rij, een regel invoegen.
BV. Application.Goto Reference:="R4C2"
Selection.End(xlDown).Select
Rows("13:13").Select
Alleen de lengte van de rij kan varieren in lengte, dus Rows ("13:13").Select moet de regel zijn onder de rij.

Wie kan mij helpen?

Albatros

 

[richard1970]

zie helpfile van VBA:

activecell.row
activecell.offset(1,0)

Richard

 

[Albatros]

Richard, bedankt! :thumb::thumb:

Met deze constructie moet het lukken:

Application.Goto Reference:="R3C2"
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.EntireRow.Select
Selection.Insert Shift:=xlDown
Application.Goto Reference:="R3C2"

Albatros

 

[Wigi]

.Select is normaal gezien niet nodig (ik weet het, ik val in herhaling ...)

Dit doet hetzelfde:

Range("B3").End(xlDown).Offset(1).EntireRow.Insert
Application.Goto Reference:="R3C2"

Wigi

 

[Albatros]

Wigi,

Ook bedankt voor de aanvulling.:thumb:
Voor een beginneling in makro's als ik, is het veel kopieren, plakken,try en error, wat ik voor mijn neus krijg. Maar ik hou je tip zeker in mijn achterhoofd.

Albatros