VBA stops responding half way - impossible bet simulation

[imyrgd]

Hello all,

I came across this video and want to use Monte Carlo to examine it.
https://www.youtube.com/watch?v=eivGlBKlK6M
To accomplish the task, I write a VBA script to run the simulation. My scrip always stops at 2xx tries. I tried to run it on multiple computers and sometimes it stopped at 50.
In addition, I can only run the script when sheet 1 is selected. I don't know how to fix this.
I try to use DoEvents or add wait time, but none works.

Excel is attached.