Move the selection to the End of the currently selected Cell

Questions
,
1

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.

2

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*)