Deletes a table cell or cells and optionally controls how the remaining cells are shifted.
ShiftCells: The direction in which the remaining cells are to be shifted. Can be any WdDeleteCells constant. If omitted, cells to the right of the last deleted cell are shifted left.
Sub DeleteCells() Dim intResponse As Integer intResponse = MsgBox("Are you sure you want " & _ "to delete the cells?", vbYesNo) If intResponse = vbYes Then ActiveDocument.Tables(1).Cell(1, 1).Delete End If End Sub