VBA: Kopier række inkl. activeX checkbox

Hej Eksperter.

Jeg har et regneark, hvor jeg skal indsætte en ny linje under en markeret celle. Derudover skal den markerede linje kopieres ned i den nye linje. Det er ikke noget problem, men linjen "indeholder" en activeX checkbox, som ikke kommer med over.
Hvis jeg gør det manuelt og slår Designtilstand til, så fungerer den, men ikke når jeg bruger VBA. Det virker som om, at når Designtilstand slås til, så stopper makroen.

Sub Makro5()
    'Design tilstand:On
    'With Application.CommandBars.FindControl(ID:=1605)
    '    .Execute
    'End With
   
    ActiveCell.Offset(1, 0).EntireRow.Insert
    ActiveCell.EntireRow.Select
    Selection.Copy
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
   
    'Design tilstand: off
    'Dim sTemp As String
    'With Application.CommandBars("Exit Design Mode")
    '    sTemp = .Controls(1).Caption
    'End With
   
End Sub

Demofilen findes her: https://1drv.ms/x/s!AvYE-ZnehEAgmRoX1DES9JlXVgnU?e=HxoTSu

Er der en løsning??
Jeg kan godt nøjes, hvis man kan få indsat en checkbox i en specifik celle.

/Meiland