In[]:=
Do[CellPrint[Cell[BoxData[CounterBox["Section",CounterFunction:>Function[Part[{"4.1","4.6","4.16"},#]]]],"Section"]],3]

1

2

3