Email macro works 1 time on excel sheet and stops

[Allkman]

I want a macro to send me email once the value is "1" on my cells range.
This macro only runs 1 time, and then stops.
Need to change "ExitMcro" and "EndMacro"

Also i would like it to run only if new cell gets value "1"

Is there a solution to have macro work once "empty" cell is changed to "1".
I have 28 rows with live data witch changes every second. So i have my "1" changed to "empty" many times per day. That can create a lot of spam emails to me.

My code in excel file, paste it to visual basic,
sheet code and Module code.