VBA, Excel 2007, Verschil Invoegfunctie (rechtermuis en vba)

[jackfish]

Er zit een verschil tussen de functie invoegen (via rechtermuisknop op de knop van een rij) en de vba-code die verkregen wordt via de macro-recorder.

Selection.Insert CopyOrigin:=xlFormatFromLeftOrAbove

Met de VBA-code wordt een rij geplakt en met de functie invoegen wordt er een rij tussen gezet waardoor alles wat eronder zit opschuift.

Welke code moet ik gebruiken om de functie invoegen (via de rechtermuisknop op de knop van een rij) met vba te gebruiken?

Gr jackfish

 

[snb]

Sub M_snb()
  rows(13).insert
end sub

 

[jackfish]

Dank voor de code snb. Ik heb het gebruikt om te koen tot een code die
1. een nieuwe rij aanmaakt van een tabel waarvan
2. de rij 105 hoog is met
3. een kader om de cellen
4. netjes uitgelijnd met tekstomloop die
5. in de eerste cell de datum zet
6. en tot slot het printbereik definieert

Sub Invoegen()
Application.ScreenUpdating = False
With Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 11))
.Cells.RowHeight = 105
.Cells.BorderAround
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.WrapText = True

For x = 1 To 4
With .Cells.Borders(x)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 0
End With
Next x
End With

Dim currentd As String
currentd = Format(Date, "dd-mmm")
ActiveCell = currentd

Dim lLaatsteRegel As Long
lLaatsteRegel = Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = Range("A1:L" & lLaatsteRegel).Address(1, 1)
Application.ScreenUpdating = True
End Sub

Omdat ik de code bij elkaar gesprokkeld heb en mijn VBA for Dummies uitgeput is ben ik benieuwd of de code hierboven efficienter kan.

Gr jackfish