do loop

Sub Macro0422()
Dim i As Integer
i = 1
Do Until i = 10
Cells(i, 1).Value = i
i = i + 1
Loop
End Sub