Sub AddRow()
'Run on exit from the last form field in
'the last row of the table
Dim oTable As Table
Dim oRng As Range
Dim oNewRow As Range
Dim oCell As Range
Dim oLastCell As Range
Dim sResult As String
Dim iRow As Long
Dim iCol As Long
Dim CurRow As Long
Dim i As Long, j As Long
Dim sPassword As String
    sPassword = ""
    'password to protect/unprotect form
    With ActiveDocument
        .Unprotect Password:=sPassword
        'Unprotect document
        Set oTable = Selection.Tables(1)
        'Establish which table the cursor is in
        For j = 1 To .Tables.Count
            If oTable.Range.Start = .Tables(j).Range.Start Then
                'Table is j
                Exit For    'Stop checking
            End If
        Next j
        'Select the appropriate table
        iCol = oTable.Columns.Count    'Record the last column number
        Set oLastCell = oTable.Cell(iRow, iCol).Range    'Record the last cell
        sResult = oLastCell.FormFields(1).DropDown.Value    'Get the value in the last cell
        Set oRng = oTable.Rows.Last.Range
        'Add the last row to a range
        Set oNewRow = oTable.Rows.Last.Range    'Add the last row to another range
        oNewRow.Collapse wdCollapseEnd    'Collapse the second range to the end of the table
        oNewRow.FormattedText = oRng
        'insert the content of the last row into the new range
        'thereby adding a new row with the same content as the last row
        CurRow = oTable.Rows.Count    'Determine the new last row of the table
        For i = 1 To iCol    'Repeat for each column
            Set oCell = oTable.Cell(CurRow, i).Range    'process each cell in the row
            oCell.FormFields(1).Select    'Select the first field in the cell
            With Dialogs(wdDialogFormFieldOptions)    'and name it
                .Name = "Tab" & j & "Col" & i & "Row" & CurRow    'eg Tab1Col1Row2
                .Execute    'apply the changes
            End With
        Next i
        'Select the formfield in the last cell of the previous row
        oLastCell.FormFields(1).ExitMacro = ""
        oLastCell.FormFields(1).DropDown.Value = sResult    'so restore the result of the cell
        .Protect NoReset:=True, _
                 Password:=sPassword, _
                 Type:=wdAllowOnlyFormFields
        'Reprotect the form
        .FormFields("Tab" & j & "Col1Row" _
                    & CurRow).Select    'and select the next field to be completed
    End With
lbl_Exit:
    Set oTable = Nothing
    Set oRng = Nothing
    Set oNewRow = Nothing
    Set oCell = Nothing
    Set oLastCell = Nothing
    Exit Sub
End Sub