Rij invoegen

[Gerard2348]

Bijgaande code heb ik gevonden. Ik heb er een kleine aanpassing in gebracht en gebruik ik. Werkt perfect. (Bedankt voor de maker hiervan).

Sub RijInvoegen1()
        
       With [toevoegen1]
            .EntireRow.Select
            .EntireRow.Insert
            .EntireRow.Copy
     End With
      With Selection
            .PasteSpecial Paste:=xlFormulas, Operation:=xlNone, _
                SkipBlanks:=False, Transpose:=False
             .EntireRow.SpecialCells(xlConstants).ClearContents
        End With

        Application.CutCopyMode = False
      
End Sub

Nu is mijn vraag, Cel B is een samengevoegde cel. Echter bij het uitvoeren van de macro wordt de cel B weer gesplitst. Is het mogelijk dat deze splitsing ongedaan wordt.
Bekijk bijlage invoegen.xlsm

 

[namliam]

Of...
Range("B6:C6").MergeCells = True

Of....
Rows("5:5").Copy
Rows("6:6").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False

In jou geval waarschijnlijk het makkelijks om
.PasteSpecial Paste:=xlPasteFormats
Toe te voegen voor de .entirerow regel.

 

[Gerard2348]

Namliam,

Bedankt voor je snelle reactie.
Het toevoegen van .PasteSpecial Paste:=xlPasteFormats is voor mij de oplossing.