wdDeleteCellsEntireRow deletes the whole row.
Sub del() ActiveDocument.Tables(1).Rows(1).Cells(1).Delete _ ShiftCells:=wdDeleteCellsEntireRow End Sub