Sub Start()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Range("A1") = 0
Range("A2") = 0
Range("A3") = 0
Range("A4") = 0
Do
Range("A1") = Range("A1") + 1
Loop Until Range("A1") = Range("B4")
Do
Range("A2") = Range("A2") + 1
Loop Until Range("A2") = Range("B1")
Do
Range("A3") = Range("A3") + 1
Loop Until Range("A3") = Range("B3")
Do
Range("A4") = Range("A4") + 1
Loop Until Range("A4") = Range("B2")
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub