String and Value workbook reference

On the other hand, attached is a macro enabled file that uses some code (initiated by a button click) that will count all the cells with numeric contents and adds the value from the "Change Value" cell.
Any number of cells in column A can have values and they can be in any position in column A.
Text values in column A will be ignored.
Any error, including if the value in Change value is not numeric, will end the code.
If you want to add values, place a positive value in Change Value cell.
If you want to subtract values, place a negative value in Change Value cell.

Edit: Needed to add something to the file.
If you already downloaded it, delete it.
I am trying to upload the corrected version