Sub Main()
  n = Val(InputBox(""))
  m = 0
  p = 0
  Do
    Range("A1").Offset(p) = m
    If m = n Then
      Exit Do
    End If
    l = Len(Str(m)) - 2
    m = m + 10 ^ l
    p = p + 1
  Loop
End Sub