Randomized Room Hello

I wanted Sheet1 to work like Sheet2.
I created Sheet1 which I added columns for dates. My range for randomized is in B8:B35 and E8:E35. But when I transferred or copied the code from Module1 to Module2 Then I did not work.

Can you please modify the code in Module2. See attachment...
https://www.excelforum.com/sho....wthread.php?t=142266