Evaluation of notebook from a cell to another [duplicate]

Question

I have a very simple notebook like this:

Quit[]
a = 10;
Sin[a]
k = 10;
Plot[Exp[x], {x, 0, 10}]
Plot[Sin[x], {x, 0, 10}]
k = 0.8;
Sin[k]
A = {1, 2, 4, 6, 9, 4};
ListPlot[A]

I want evaluate with "one click" the code from k = 10; to A = {1, 2, 4, 6, 9, 4};, ignoring the rest;

I try with Ctrl+A, then Ctrl+click to deselect unnecessary cells and then Enter but mathematica evaluate only one cell.

This is a very similar question, but it looks like it does not work for me.

Answer 1

I try with Ctrl+A, then Ctrl+click to deselect unnecessary cells and then Enter but mathematica evaluate only one cell.

You should use the Evaluation ▶ Evaluate Cells menu item:

http://reference.wolfram.com/language/ref/menuitem/EvaluateCells.html

Note that this can be easily found in the Docs:

http://reference.wolfram.com/search/?q=Evaluate+selected+Cells