How can I move the selection to the end of currently evaluating (selected) cell? I didn't find an object to represent the currently selected cell.
nb = CreateDocument[TextCell["test"]] (*notebook example*) SelectionMove[Cells[nb][[1]], All, Cell] (*with selected cell*) SelectionMove[nb, After, CellContents] (*moving selection at the end of selected cell*)
