inputbox excel

[caesar.l]

Prueba con esto

Código vb:

Private Sub CommandButton1_Click()
 
Dim Celda As Range
Dim Numero As String
Dim Checar As Boolean
Set Celda = Range("A1")
10:
    Numero = InputBox("numero")
    If Numero = "fin" Then
           GoTo fin
    Else
           Celda = Numero
           Checar = Application.WorksheetFunction.IsNumber(Celda)
          If Checar Then
                 Celda.Value = Numero
                 Set Celda = Celda.Offset(1, 0)
                 GoTo 10
           Else
                 Celda = ""
                 GoTo 10
   End If
    End If
 
fin:
 
End Sub
 

De tu otra duda, no comprendí