Sub addR()

Dim oTable As Table
Dim oCell As Cell
Dim oNewRow As Row
Dim oCCtrl As ContentControl

 ' Insert new row
    Set oTable = ActiveDocument.Tables(1)
    Set oNewRow = oTable.Rows.add

 For Each oCCtrl In ActiveDocument.ContentControls
        With oCCtrl
            If .Type = wdContentControlDate Then oNewRow.Cells(1).Range.Text = ""
        End With
  Next oCCtrl

End Sub

Sub addR()
Dim oTable As Table
Dim oCell As Cell
Dim oNewRow As Row
    'identify table
    Set oTable = ActiveDocument.Tables(1)
    ' Insert new row
    Set oNewRow = oTable.Rows.Add
    'identify the required cell in the new row
    Set oCell = oNewRow.Cells(1)        'the first cell in the row
    'add a date control to the cell
    ActiveDocument.ContentControls.Add wdContentControlDate, oCell.Range
lbl_Exit:
    Exit Sub
End Sub