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][], All, Cell] (*with selected cell*)
SelectionMove[nb, After, CellContents] (*moving selection at the end of selected cell*)