Kopieren groepering

[wds]

Via VBA kopieer ik een aantal rijen van het ene naar het andere werkblad.

Zoals in bijgaand voorbeeldje te zien is, wordt de groepering momenteel niet mee gekopieerd.
Wat doe ik fout?Bekijk bijlage Helpmij.xlsm

 

[Timshel]

Zo?

Sub VoegProjectIN()
    Dim Lrij As Long
    Dim X As Long

    For X = 1 To InputBox("Hoeveel projecten toe te voegen?", "Aantal", "1")
        Lrij = Sheets("PLANNINGSBORD").Range("N" & Rows.Count).End(xlUp).Row + 3 'wat is de laatst gebruikte cel in de n-kolom ?
        Sheets("Opmaak").Range("A8:JY14").Copy
        With Sheets("Planningsbord").Range("A" & Lrij + 2 & ":JY" & Lrij + 9)
            .PasteSpecial 'Paste:=xlPasteFormats
            .Offset(1).Resize(.Rows.Count - 3).Rows.Group
        End With
    Next X
End Sub

 

[wds]

Hij doet het perfect! Bedankt!