Looping the macro until it meet the condition.

[ebin charles]

Hey,

If Range("F1").Value = 0 Then
Range("A4").Value = Range("A4").Value - 1
Filter
Range("d1").Value = "NOT PRINTED"
Flip
Else

Please help me to loop (repeat) above macro until Range("F1").Value => 1.

I tried with integer but not success.

Regards,
ebincharles