until や whileを使わないdo…loop…

Sub Macro0424()
Dim i As Integer
i = 1
Do
Cells(i, 1).Value = i
i = i + 1
If i = 10 Then Exit Do
Loop
End Sub