Bei diesem Beispiel könnt Ihr in Zelle A1 einen Wert eingeben. In Spalte B wird nun in jede Zelle eine Zahl geschrieben bis die Do - Loop Schleife den Wert aus A1 erreicht hat.

Option Explicit

Sub do_loop()
Dim i As Double
i = 0
Do Until i = Range("A1").Value
i = i + 1
Cells(i, 2) = i
Loop
End Sub