Sub test() With ActiveDocument .Tables(1).Cell(2, 2).Delete ShiftCells:=wdDeleteCellsEntireRow End WithEnd Sub
