Agregar Loop a macro hasta que se cumpla condicion

[BugmeNot2]

Necesitaria su ayuda para agregarle un loop a esta macro que haga que mientras H36 sea "Bajo" se copie el valor de K36 en C36, si el valor de H36 es "alto" se copie L36 en C36 y si el valor de H36 es "Bien" termine la macro.

El resto funcion abien pero yo mismo no pude agregarle el loop, les dejo masomenos lo que tengo

Sub Porcentajes()

Application.Calculation = xlCalculationAutomatic

If Range("h36").Value = "Bajo" Then

Range("k36").Copy

Range("c36").PasteSpecial xlPasteValues

End If

If Range("h36").Value = "Alto" Then

Range("l36").Copy

Range("c36").PasteSpecial xlPasteValues

End If

If Range("h36").Value = "Bien" Then Exit Sub

End Sub

[gfellay]

podría ser algo como (ojo que no lo verifiqué y puede entrar en un loop infinito)

Sub Porcentajes()

Application.Calculation = xlCalculationAutomatic

Application.EvableEvents = False

Do While Range("H36").value <> "Bien"

If Range("h36").Value = "Bajo" Then

Range("k36").Copy

Range("c36").PasteSpecial xlPasteValues

End If

If Range("h36").Value = "Alto" Then

Range("l36").Copy

Range("c36").PasteSpecial xlPasteValues

End If

Loop

Application.EvableEvents = True

End Sub