Insert New Row with New check box

[Nathalia508]

VBA Code:
Option Explicit

Private Sub CommandButton1_Click()
addNewRow
End Sub

Sub addNewRow()

' Do not insert a row before the first row.
Dim iTopRow As Integer
iTopRow = 1

If (ActiveCell.Row > iTopRow) Then

' Get the active row number.
Dim rowNum As Integer
rowNum = ActiveCell.Row

Rows(rowNum).EntireRow.Insert ' Insert a new row.

End If
End Sub

 

[Nathalia508]

Good Morning

Anyone can help me.

I Pasted this VBA code but when run it, check box is not available to all new inserted row columns.

 

[bebo021999]

How about: copy / paste all (include object)?

If (ActiveCell.Row > iTopRow) Then
   ActiveCell.EntireRow.Select
   Selection.Copy
   ActiveCell.Offset(1, 0).Select
   Selection.Insert Shift:=xlDown
   Application.CutCopyMode = False
end if