a = EvaluationNotebook[]; SelectionMove[
EvaluationCell[], All, Cell]; Pause[.5]; NotebookDelete[]; \
NotebookWrite[a,
Cell[BoxData[""], "Input",
Evaluatable ->
True], All]; SelectionMove[a, All, CellContents]; Pause[1.8]; Do[
Pause[.2];
NotebookWrite[a, b], {b,
Characters[
"Print[\"Hello, World!\"];"]}]; Pause[1.5]; SelectionMove[a, \
Previous, Character]; SelectionMove[a, All, Character]; \
NotebookDelete[]; Pause[1.5]; SelectionMove[a, Previous, Character]; \
SelectionMove[a, All, Character]; NotebookDelete[]; Do[Pause[.1];