Cell.Delete procedure builder

Cell.Delete (Word)

Deletes a table cell or cells and optionally controls how the remaining cells are shifted.

Delete (ShiftCells)

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