Olá. Veja se o código abaixo o ajuda. Para utilizá-lo, tecle Alt+F11 e cole na aba em que você quer que isso seja feito. Para alterar a célula onde é inserida a sequência de números, mude os três locais onde está escrito A1.
Sub numeros()
Dim n, i As Integer
On Error GoTo fim
n = CDbl(InputBox("Até qual número", "Entrada de dados"))
If n > 0 Then
[A1] = 1
End If
For i = 2 To n
[A1] = [A1] & " " & i
Next
fim:
Exit Sub
End Sub
Não se esqueça de marcar o tópico como resolvido se a resposta for satisfatória.
Postado : 12/12/2015 6:55 pm