Error adding row to table

[jeffreybrown]

This macro works fine until it hits a table where there are vertically merged cells in the table. I get an error 5991 "Cannot access individual rowsin this collection because the table has vertically merged cells"



Is is possible to add rows to those tables or do I just need to skip those tables and move on?

Sub Add_Rows_Table()
    Application.ScreenUpdating = False
    Dim Tbl As Table, Rng As Range
    For Each Tbl In ActiveDocument.Tables
        Tbl.Select
        Tbl.Rows.Add BeforeRow:=Selection.Rows(1)
    Next Tbl
    Application.ScreenUpdating = True
End Sub