The following works. Replace cells to be deleted with "x" and press "OK", which will display a new TableView with the cells deleted. Pressing "Cancel" closes the dialog and the final data can be read from "table".
res=True;
While[res,
res=ChoiceDialog[TableView[Dynamic[table],AllowedDimensions->{5,5}]];
If[res,
(table[[Sequence@@#]]=Null)&/@Position[table,"x",{2},Heads->False];
table=Replace[table,{{Null..}->{},{x__,Null..}:>{x}},{1}];
While[table[[-1]]==={},table=table[[;;-2]]]
]]
Hope it will be of use! / Hoffe es ist von Nutzen!