X+1 +1 +1... till match a condition

Wow this works rly more faster than my macro xD

Thanks for the code, but my question is whether it is possible to do this without macros

Sub Botón1_Haga_clic_en()
    Range("D4:D33").ClearContents
    Do While Hoja1.Cells(4, 11) < Hoja1.Cells(4, 3)
        Hoja1.Cells(4, 4) = Hoja1.Cells(4, 4) + 1
    Loop
    Do While Hoja1.Cells(5, 11) < Hoja1.Cells(5, 3)
        Hoja1.Cells(5, 4) = Hoja1.Cells(5, 4) + 1
    Loop
    Do While Hoja1.Cells(6, 11) < Hoja1.Cells(6, 3)
        Hoja1.Cells(6, 4) = Hoja1.Cells(6, 4) + 1
    Loop
    Do While Hoja1.Cells(7, 11) < Hoja1.Cells(7, 3)
        Hoja1.Cells(7, 4) = Hoja1.Cells(7, 4) + 1
    Loop
    Do While Hoja1.Cells(8, 11) < Hoja1.Cells(8, 3)
        Hoja1.Cells(8, 4) = Hoja1.Cells(8, 4) + 1
    Loop
    Do While Hoja1.Cells(9, 11) < Hoja1.Cells(9, 3)
        Hoja1.Cells(9, 4) = Hoja1.Cells(9, 4) + 1
    Loop
    Do While Hoja1.Cells(10, 11) < Hoja1.Cells(10, 3)
        Hoja1.Cells(10, 4) = Hoja1.Cells(10, 4) + 1
    Loop
    Do While Hoja1.Cells(11, 11) < Hoja1.Cells(11, 3)
        Hoja1.Cells(11, 4) = Hoja1.Cells(11, 4) + 1
    Loop
    Do While Hoja1.Cells(12, 11) < Hoja1.Cells(12, 3)
        Hoja1.Cells(12, 4) = Hoja1.Cells(12, 4) + 1
    Loop
    Do While Hoja1.Cells(13, 11) < Hoja1.Cells(13, 3)
        Hoja1.Cells(13, 4) = Hoja1.Cells(13, 4) + 1
    Loop

End Sub