Sub Sekvenssi()
  Do While Range("B1") = ""
    For r = 1 To 10
      Cells(r, 1).Calculate
      For i = 1 To 1000
        DoEvents
      Next i
    Next r
  Loop
End Sub