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

 Option Explicit

Sub AddRow()
Application.ScreenUpdating = False
'This macro adds another row to the table.
' If you need the formfields named, activate the commented-out code.
' As coded, the formfield names assume each column uses a different formfield
' name ending in a two-digit number corresponding to the formfield row. For
' example, formfield names on tabe row 2, which is formfield row 1, end with 01.
Dim i As Long, j As Long, FmFld As FormField, Prot As Variant
'Dim StrNms As String
Const Pwd As String = "pswrd" 'Insert password here
With Selection
  i = .Tables(1).Range.FormFields.Count
  j = ActiveDocument.Range(.Tables(1).Range.Start, .Range.End).FormFields.Count
End With
If i = j Then
  If MsgBox("Add new row?", vbQuestion + vbYesNo) = vbYes Then
    With ActiveDocument
      Prot = .ProtectionType
      If .ProtectionType <> wdNoProtection Then
        Prot = .ProtectionType
        .Unprotect Password:=Pwd
      End If
      With Selection.Tables(1).Rows
        i = .Count
        With .Last.Range
          'For Each FmFld In .FormFields
            'StrNms = StrNms & "|" & Left(FmFld.Name, Len(FmFld.Name) - 2) & Format(i, "00")
          'Next
          .Next.InsertBefore vbCr
          .Next.FormattedText = .FormattedText
        End With
        With .Last.Range.FormFields
          For i = 1 To .Count
            With .Item(i)
              If .Type = wdFieldFormCheckBox Then .CheckBox.Value = False
              If .Type = wdFieldFormTextInput Then .TextInput.Clear
              If .Type = wdFieldFormDropDown Then .DropDown.Value = .DropDown.Default
              '.Select
              'With Dialogs(wdDialogFormFieldOptions)
                '.Name = Split(StrNms, "|")(i)
                '.Execute
              'End With
            End With
          Next
          .Item(1).Select
        End With
      End With
      .Protect Type:=Prot, Password:=Pwd, Noreset:=True
    End With
  End If
End If
Application.ScreenUpdating = True
Call Macro1
End Sub

 Sub Macro1()
'
' Macro1 Macro
' test, go to paart number after add line
'

Selection.EndKey Unit:=wdStory
Selection.MoveLeft Unit:=wdCharacter, Count:=45

End Sub