Why does it give a Object Error After Running Macro Twice?

Question

I have the following Macro which replaces the text within a cell with the value from another cell.

Sub Facts_Observed()
   F = Replace([Amount_FO].Value, &quo