Sub test()
i = 0
Do
    i = i + 1
    Cells(i, 1) = i
Loop Until i = 10

j = 1
Do While j <= 10
    Cells(j, 2) = j
    j = j + 1
Loop

For k = 1 To 10
    Cells(k, 3) = k
Next k

l = 0
Do
    l = l + 1
    Cells(l, 4) = l
    If l = 10 Then Exit Do
Loop

m = 0
Do
    m = m + 1
    Cells(m, 5) = m
    If m = 10 Then
            Exit Do
    End If
Loop
End Sub