Content Controls - Add with Rows with Sequential Numbering

[bigal.nz]

So it looks like I should edit this code:

           oRng.Paste
            iRow = iRow + 1
          End If
          'Work with new row content.
          With .Rows(iRow)
            For lngIndex = 1 To .Previous.Range.ContentControls.Count
              Set oCC_Master = .Previous.Range.ContentControls(lngIndex)
              Set oCC_Clone = .Range.ContentControls(lngIndex)
              With oCC_Clone
                #If VBA7 Then
                  If Int(Application.Version) >= 14 Then
                    If .Type = wdContentControlCheckBox Then
                      .Checked = False
                    End If
                  End If
                #End If

to read:

           oRng.Paste
            iRow = iRow + 1
          End If

'Work with new row content.
          With .Rows(iRow)
            For lngIndex = 1 To .Previous.Range.ContentControls.Count
              Set oCC_Master = .Previous.Range.ContentControls(lngIndex)
              Set oCC_Clone = .Range.ContentControls(lngIndex)
              Dim arrTitle() As String
              arrTitle = Split(oCC_Master.Title, "_")
              oCC_Clone.Title = arrTitle(0) & "_" & Val(arrTitle(1) + 1)

              With oCC_Clone
                #If VBA7 Then
                  If Int(Application.Version) >= 14 Then
                    If .Type = wdContentControlCheckBox Then
                      .Checked = False
                    End If
                  End If
                #End If
etc....

Cheers

-Al