Dear offthelip,

The earlier suggestion did not work.

The later was fine.

If (Seconds = 60) Then 
    Cells(CurrentRow, CurrentColumn + 2).Value = Rnd * 9 
    Minutes = Minutes + 1 
    CurrentRow = CurrentRow + 1 
    Seconds = 0 
     
End If
It worked according to what I required. However, it is showing in decimals whereas I require whole numbers. I can just format the cells to show the nearest whole number but I would appreciate if you could eliminate the decimals.

Again, thanking you for the great help.