Inputbox que al poner cualquier numero me lo ponga como porcentaje

Tengo una hoja de excel que al abrirla me sale un inputbox que me pregunta si quiero descontar algún porcentaje y supongamos que le pongo el numero 8 quiero descontar 8% me lo manda como 800%como le puedo hacer para corregir el problema?

Private Sub Workbook_Open()

Sheets("PRODUCTOS").Select
ActiveSheet.Unprotect Password:="contraseña"
copia = InputBox("¿Desea descontar algún porcentaje?", "AVISO")
Range("P2") = copia
If copia = vbCancel Then Exit Sub

Sheets("PRODUCTOS").Select
ActiveSheet.Protect Password:="contraseña"

End Sub