nb="AnG-Programs";
notebook=NotebookGet[NotebookOpen@FileNameJoin[{Directory[],nb<>".nb"}]]

cells=Cases[notebook,c_Cell /; Length[c]≥2∧FreeQ[c, _Cell, {1,∞}],∞]
Length[cells]

cells=Cases[notebook,c_Cell /; Length[c]≥2,∞]
Length[cells]

Short[cell=cells[[14]]]

cell[[2]]

Cases[cell,_Rule]

Position[notebook, CompressedData]

notebook[[1,6,1,1,8]][[2]]

notebook[[1,6,1,1,8,1,1,4]]//Short