Hi Sam,

Let's say the "item info" table has a default number of rows (5) , as does
the "comments" table (4). That adds up to 9 rows, which is how many rows you
need to keep.

So, if you add 2 rows to the "item info" table, it's now got 7 rows and the
"comments" table needs to have 9-7=2 rows.

Then, if you delete 3 rows from the "item info" table, it's now got 4 rows
and the "comments" table needs to have 9-4=5 rows.

Assuming you always want to programmatically add/delete the last row(s) in
the "comments" table, and your tables are bookmarked "ItemInfo" and
"Comments", respectively, your code would go something like:

Sub MaintainTables()
Dim T1Rows As Integer
Dim T2Rows As Integer
Dim RowCount As Integer
Dim DefRows As Integer
DefRows = 9
With ActiveDocument
 T1Rows = .Bookmarks("ItemInfo").Range.Tables(1).Rows.Count
 T2Rows = .Bookmarks("Comments").Range.Tables(1).Rows.Count
 RowCount = T1Rows + T2Rows
 With .Bookmarks("Comments").Range.Tables(1)
   If RowCount < DefRows Then
       .Rows(T2Rows).Select
       Selection.InsertRowsBelow DefRows - RowCount
   ElseIf RowCount > ReqCount Then
     For i = RowCount - T1Rows To DefRows - T1Rows + 1 Step -1
       .Rows(i).Delete
     Next
   End If
 End With
End With
End Sub

To work with a different number of rows, change the '9' in 'DefRows = 9' to
the required number.

Cheers