Copiar Formato de Celda

Que tal un saludo a todos, espero me puedan ayudar con este pequeño problema;
tengo una macro la cual copia el resultado de una formula en otra hoja algo asi;
ya que estoy en la celda a copiar pongo esto
CANTOCUP = Activecell.value
el problema es que el resultado de esta variable (que la tengo definida como Integer) me da como resultado un numero cerrado siendo que el resultado de la formula en la hoja de calculo (es decir la celda que quiero copiar) es un numero con decimales ya intente con
CANTOCUP = Activecell.FormulaR1C1
pero  me marca error de que otro modo lo puedo hacer? Sin tener que cambiar el formato de la celda a tipo numero ya que no es lo que necesito
espero me puedan ayudar