Lista descendiente en Excel.vb

'Te pide que ingreses una columna (puedes responder A, B, XX, XXY, 1, 2, 123, etc)
'Luego te pide que ingreses una fila
'Luego te pide que escribas un número natural
'Lo que hace el programa es escribir el número que elegiste en la celda que elegiste
'Luego hace que la celda debajo de esta tenga el número-1
'Así sucesivamente hasta que el número se vuelve 0

Dim columna As Variant 'porque puede ser llamada columna A o columna 1
Dim fila As Long 'porque las filas son números
Dim valor As Long 'porque la lista será númericamente descendiente
Dim fin As Long 'determinará el final de la descendencia
 
columna = InputBox("Ingrese la columna")
 
If IsNumeric(columna) = True Then 'si el usuario ingresó un número
   columna = Val(columna) 'entonces convierte el variant a double
End If
 
fila = InputBox("Ingrese la fila")
 
valor = InputBox("Escriba un numero natural")
fin = valor + fila - 1 'la lista se detendrá cuando termine de descender el número
 
While valor > 0 And fila <= fin 'mientras que el número no ha terminado de descender
   Cells(fila, columna).Value = valor 'escribe en la celda el valor
   valor = valor - 1 'réstale al valor 1 para que descienda
   fila = fila + 1 'desciende a la siguiente fila
Wend