01. Nums 1 To 10

Sub Nums1To10()
    For num = 1 To 100
        Range("A" & num) = num
    Next num
End Sub