Code:

` Y = RANDBETWEEN(2,15)`

Code:

` X = NOW()`

Code:

```
Sub Calculate_range()
Range("A1:A7").Calculate
Application.OnTime DateAdd("s", 2, Now), "Calculate_range"
End Sub
```

I have managed to do somehow with more variables however I just need one.

How do I go about this?

You can find the file here:

HTML:

` https://filebin.net/mwdmkf3vzf175zqf`