'wdDeleteCellsEntireColumn deletes the whole column the specified cell or cells is in.Sub del() ActiveDocument.Tables(1).Rows(1).Cells(1).Delete _ ShiftCells:=wdDeleteCellsEntireColumnEnd Sub