MACRO EN EXCEL PARA MANEJAR UN SISTEMA DE INVENTARIOS

La  macro que se encuentra a continuacion permite controlar entradas y salidas  para determinar el inventario de varios productos.

Sub ENTRADAS()
  Range("A2").Select
  claveEntrada = ActiveCell.FormulaR1C1 + 4
  CeldaEntrada = "D" & claveEntrada
  Range("D2").Select
  EntradaProducto = ActiveCell.FormulaR1C1
  Range(CeldaEntrada).Select
  ActiveCell.FormulaR1C1 = Val(ActiveCell.FormulaR1C1) + Val(EntradaProducto)
  Range("D2").Select
  ActiveCell.FormulaR1C1 = ""
 
 
End Sub
Sub SALIDAS()
  Range("A2").Select
  claveEntrada = ActiveCell.FormulaR1C1 + 4
  CeldaEntrada = "E" & claveEntrada
  Range("E2").Select
  EntradaProducto = ActiveCell.FormulaR1C1
  Range(CeldaEntrada).Select
  ActiveCell.FormulaR1C1 = Val(ActiveCell.FormulaR1C1) + Val(EntradaProducto)
  Range("E2").Select
  ActiveCell.FormulaR1C1 = ""
 
End Sub