VBA Script - Cell value added into other cell

Hi, am needing some help with e VB code.

I have a spreadsheet and I am wanting to have a cell add its value into another cell to increase the value in said cell.

If the number ‘2’ is input into D6 and down to D200 etc… I want this to add to the value of E6 and the cell next to the D Cell. So E6 would change from ‘10’ to ‘12’ for example.

This will also pop up with a custom message saying ‘yes’ or ‘no’ and then the value in D6 would be removed automatically.

I am also wanting to the same for G6 having its value added into F6 increasing the value again.

Attached in my test spreadsheet image and below is the VB script I have at the moment but it is only deducting the value away and I can’t get it to do addition. Also is there anything else I should change in the code to make it work for all cells?

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    ' The variable KeyCells contains the cells that will
    ' cause an alert when they are changed.
    Set KeyCells = Range("H6")
    
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then
           
        'MsgBox "Cell " & Target.Address & " has changed."
    
        If Trim(Range("H6").Value) <> "" Then
        
            MSG1 = MsgBox("Deduct Quantity?", vbYesNo)
    
                If MSG1 = vbYes Then
                    Range("F6").Value = Range("B2").Value - Range("F6").Value
                    Range("H6").Value = ""
                Else
                    Range("H6").Value = ""
                End If
                     
        End If
       
    End If
End Sub

Thanks for the help.

Screen Shot 2016-11-10 at 10.28.01.png

No problem,

Original stock column still needs formulating to deduct the issued column items still just wanted to do this after the script is working, is this possible with VB script though?

Here it is. http://www.filedropper.com/spreadhseetforum

No just need original stock - issued. The other columns are used for feeding date into original and issued columns.

result should be column E. Sorry I'm new to VB scripts etc.

I need the column on the right of issued to feed date into issued column, then this issued column will deduct form original stock with a formula i have not entered yet. If this makes sense

on the sheet i sent you.

I need D6 value to add onto E6, but when the value in D6 is input a confirmation box to appear and then if yes it clicked the cell will return to '0' and then D6 will add its value onto E6.
And the Same for G6 adding onto F6. E6 and F6 will have formula of E6-F6.

wont let me attache for some reason through the forum

http://www.filedropper.com/spreadhseetforum i sent this, with the basic parts on it?

Ahh i see,

It wont let me attach on the forum...
got any ideas how i can send it to you?

https://1drv.ms/x/s!AmPxqlPEw1EQgTL-wPh26ZFFKB7g link to my one drive sheet. Try downloading this maybe?