Repeat Macro until condition is met

Hi all, I have a relatively simply problem (I hope).

In the attached file I have a macro (Macro 1) that generates a random number in cell W3 after 5 seconds.

In cell K9, I have some code that checks to see if the random number in W3 - matches the fixed number in S3.

What I want the macro to do, is repeat the calculation if the number does not match (so k9 shows a 0), to stop when it does match (so k9 shows a 1) but to wait 5 seconds between each new calculation - and allow me to still use the worksheet whilst the macro runs (in the background if possible)

The macro I try just keeps looping and freezes the worksheet in between calculations.

Please can someone help

Worked it out for myself

Sub Macro1()
'
' Macro1 Macro
'

'


Calculate
DoEvents
Application.Wait Now + TimeValue("00:00:05")


End Sub


Sub Rerun()
With Sheets("Sheet1")
' Test Condition 1
Do Until .Range("K9").Value = 1
Application.Run "Macro1"
Loop
End With
End Sub