Thank you so much for your response! It worked great except that I changed one section because there were some rows in the table that were merged (so they only had one cell in them):

For Each oTable In ActiveDocument.Tables
For Each oRow In oTable.Rows
If oRow.Cells.Count = 2 Then
Set oRange = oRow.Cells(2).range
oRange.End = oRange.End - 1
End If