Sub Macro1()
Dim oTable As Table
Dim oRow As Row
Dim i As Integer, j As Integer
    For i = 1 To ActiveDocument.Tables.Count
        Set oTable = ActiveDocument.Tables(i)
        For j = oTable.Rows.Count To 1 Step -1
            Set oRow = oTable.Rows(j)
            If InStr(1, oRow.Range, "total") > 0 Then
                oRow.Range.Rows.Add
            End If
        Next j
    Next i
    Set oTable = Nothing
    Set oRow = Nothing
End Sub