Como hacer que una macro sume el valor de una celda a otra?

En primer lugar, quiero agradecer por revisar mi pregunta. Mi problema básicamente es que en Excel tengo dos hojas, en hoja 1 un inventario con códigos de productos, descripción, ventas y compras, al modificar algunos de estos parámetros de modifican consecuentemente otros por ejemplo al asentar ventas, se descuentan unidades del stock y se suma montos de ventas, al realizar compras se suma stock y se descuenta de balance, todo ello en hoja 1, en hoja 2 tengo un registro de ventas diarias con los datos de la misma, como unidades vendidas código de producto, importe unitario y total, mediante una macro (dejo el código al final) selecciono de este registro de ventas el código del producto y me lleva a hoja 1 y me selecciona la fila de ese producto e ingreso manualmente la suma de unidades vendidas a un monto ya existente (lo cual descuenta del inventario esas unidades), la suma del dinero cobrado (lo que a su vez se suma a un balance general) copio el costo de las unidades vendidas y me lo llevo manualmente a hoja 2 para realizar otros cálculos. Mi pregunta es si es posible mediante una macro o una modificación de la que tengo, que mediante datos de hoja 2 (ingresados en celdas distintas, una para cada venta, por lo que seria bueno seleccionarlas mediante click) automáticamente me sume al monto existente una cantidad determinada de unidades, me sume al monto existente en otra celda un determinado importe y me copie el dato de una celda y me lo lleve a hoja 2. No tengo inconveniente en que sea mediante selección de celda o formulario, cualquier ayuda u orientación la agradezco.

Sub BuscarCodigo()

    Set h1 = Sheets("Ventas")

    Set h2 = Sheets("Stock")

    '

    If ActiveCell.Column <> 3 Or ActiveCell.Value = "" Then

        MsgBox "Selecciona un código", vbExclamation

        Exit Sub

    End If

    Set b = h2.Columns("B").Find(ActiveCell.Value, lookat:=xlWhole)

    If Not b Is Nothing Then

        h2.Select

        h2.Rows(b.Row).Select

    Else

        MsgBox "El código no existe", vbExclamation

    End If