Each Cell in a Mathematica notebook is, behind the scenes, a Cell[...] expression (and the notebook is a Notebook[...] expression), consistent with the usual Mathematica Mantra "Everything is an Expression". In a notebook, to see a Cell's Cell expression, select its cell bracket and use the Cell/ShowExpression menu item to see the expression. (Be sure to choose that menu item to show the formatted cell when you are done). Edit such Cell expressions carefully, it's quite easy to introduce syntax errors when doing this. But, this is a long winded way to say that this is how I found your problem and fixed it ;-)

I assumed that this was probably the sort of issue you were having from your detail of the symptoms.

For some reason, in part of your code an invisible embedded Cell[""] expression was placed internally and is now part of those expressions. This may have happened for a variety of reasons... however I am attaching a fixed version of your notebook where I removed them.

It seems to work fine now.... (I removed the unnecessary Quit[] statement at the beginning of the notebook but you can put it back if you wish).

Attachments:

In[45]:= 45.8654 (0.05 - 0.00012397) + 0.260788

Out[45]= 2.54837