Below is a cell with some computation:

Group of Cells to Evaluate

In[]:=
RandomInteger[100,5]
Out[]=
{98,10,18,20,67}
In[]:=
Histogram[%,{10}]
Out[]=

Button Code

In[]:=
Button["Run the code in the Subsubsection",SelectionMove[Cells[CellStyle->"Subsubsection"][[1]],All,CellGroup];SelectionEvaluate@EvaluationNotebook[]]
Out[]=
Run the code in the Subsubsection