Evaluate the line below in you notebook and will create a new notebook with all cells except Input and Code cells. You could put it at the end of your notebook and evaluate just this cell. I am sure there is a better method, so this is just a quick hack.

NotebookPut[Notebook[(Map[NotebookRead])[
       With[{cd = 
      Complement[
       Union[Flatten[
         NotebookCellData[SelectedNotebook[], "CellStyle"]]], {"Code",
         "Input"}]},        
    Select[Cells[], 
     MemberQ[cd, CurrentValue[#1, "CellStyle"][[1]]] & ]]]]]

After running the code, only all the sections resulting from the code execution are extracted. How can I modify it to select all other content except the code itself—such as manually entered text, inserted images, and other complete content?