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