Cómo agrego text personalizado a través del cuadro de input

Estoy usando el siguiente código para solicitar al usuario una variable y agregarla a cada fila al final. Por alguna razón, el número en la última línea es el número que llena todas las celdas. ¿Hay alguna manera de arreglar este código?

Dim lr As Long Dim myRange As Integer myRange = Application.InputBox("Enter Item Number", Type:=1) lr = Cells(rows.Count, "A").End(xlUp).Row Range("O2:O" & lr).Value = Format(myRange, "1") 

Usted definió su range de O2 a O" & lr .

Rango ("O" y lr) .Valor = Formato (myRange, "1")

O

Celdas (rows.Count, "A"). End (xlUp) .Offset (1) .Value = Format (myRange, "1")

Realmente no entiendo por qué usas Format pero …

Si quiere formatearlo para asegurarse de que sea un formatting numérico, creo que la mejor manera es hacer un loop en su inputbox While not isnumeric (myrange) o vaciar el valor.

para formatear un número con formatting, creo que es cero.

Format(1 , "0000") Debe dar Format(10, "0") 0001 Format(10, "0") Debe dar 10