If (Seconds = 60) Then 
Randomize '<<<<<<<<<<<<<<<<
    Cells(CurrentRow, CurrentColumn + 2).Value = Rnd * 9