Excel - Macros Excel 2007

Tengo un problema con el siguiente Macro que me coloca en la celda h4 el valor 0, aunque tecleo otro valor.

Sub RSI()
'
' RSI Macro
'
' Acceso directo: CTRL+m
'
Dim Numero1 As Integer
Range("H4").Select
Selection.Copy
Range("I4").Select
ActiveSheet.Paste
InputBox ("Entrar Numero")
ActiveSheet.Range("H4").Value = Numero1 (Aquí está el fallo)
Application.Goto Reference:="R12C17"



Gracias

Algo asi:

Armando muchas gracías, ahora solo tengo un pequeño problema he entrado el número 47,74 y aparece en la celda el 48,000, pues tengo esa celda con tres decimlales.

Porque definiste Numero1 As Integer, puedes cambiarlo a Single, mas info en:
http://msdn.microsoft.com/es-es/library/47zceaw7(v=vs.80).aspx
http://www.monografias.com/trabajos33/visual-basic/visual-basic2.shtml

Estupendo ahora va bién.
Gracias por atenderme.

Hola tengo una consulta q seguramente debe ser fácil para gente con experiencia como ud. pero para mi es el fin del mundo jaja mi duda es la siguiente... Necesito generar una macro que me fragmente en130 caracteres como máximo por línea. Es decir si yo pego algo en Excel que tiene 500 caracteres que lo fragmente en 130 caracteres por fila (incluyendo espacios en blanco) así me ocuparía 4 filas de ( 130;130;130;110) el limite de filas máximas que podría emplear son 10. Espero se entienda y me puedan ayudar. Desde ya muchas gracias! Saludos a todos :)