Cell.Delete (Word)

Elimina la celda o las celdas de una tabla y controla de manera opcional el modo en que se desplazan las celdas restantes.

Delete (ShiftCells)

ShiftCells: La dirección en la cual se desplazarán las celdas restantes.

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