de un numero ingresado mostrar los numeros continuos descendentemente en una lista

[pana99]

Hola, aca te dejo un codigo que hara lo que necestias.
Solo lo imprime en la ventada de inmediato. Luego manejalo vos como consideres

Espero te sirva

Código:

Private Sub Command1_Click()

    Numero = InputBox("Ingresa un numero", "Muestra Numero")
    'Controlamos si es un numero
     If IsNumeric(Numero) = True Then
        For x = Numero To 1 Step -1
            Debug.Print x
        Next
    Else
        MsgBox "no ingresaste un numero"
    End If
End Sub