SEQUÊNCIA NUMÉRICA...

 SE PRETENDEMOS COLOCAR UMA SEQUÊNCIA NUMÉRICA  EM NOSSA PLANILHA...

O Código:

Sub Sequencia()
'
'
    Dim x, y, z, a, b

    On Error GoTo Sai
    x = InputBox(Prompt:="Digite a 1ª célula")
    y = InputBox(Prompt:="Digite a última célula")
    a = InputBox(Prompt:="Digite o primeiro nº")
    b = "" & x & ""
    z = "" & x & ":" & y & ""
    Range(b).Select
    Range(b) = a
    Selection.AutoFill Destination:=Range(z), Type:=xlFillSeries
    Range(z).Select
    Selection.Font.Bold = True
    Range(b).Select
Sai:
End Sub



Código para o Botão de Comando:

Private Sub CommandButton1_Click()
    Run "Sequencia"
End Sub