Introducir un retardo en una macro

Necesito ralentizar una macro para que el proceso se vea lentamente.
No se trata de introducir un retardo en la ejecución y que luego se
procese rapidamente, sino de que se vea lentamente todo el proceso.
La macro es:
Sub Calcula_Bruto_Garantizado()

Dim inferior As Double
Dim coeficiente As Double
Dim superior As Double

inferior = -10000
coeficiente = 0
superior = 10000

Range("R16").Value = coeficiente

Do While (Abs(Range("R14").Value) >= 0.001)
If Range("R14").Value > 0 Then
superior = coeficiente
coeficiente = (coeficiente + inferior) / 2
Else
inferior = coeficiente
coeficiente = (coeficiente + superior) / 2
End If
Range("R16").Value = coeficiente
Loop
End Sub