An "adding" PASTE and a CELL update

Hi

I need 2 macros:

1. An ordinary macro that would copy values only of G7:G29 pasting them to H7:H29 BUT adding the G value to the H value.
For example, H11 would become 223.74.

2. An automatic sheet changing macro that when a value (numeric) is entered in J7:J29, that value would be subtracted from either the value in H or I, same row, which ever is filled, and the value in H or I would be updated.
(H and I will NEVER have values on the SAME row).
The value entered in J cannot be greater than the value entered in H or I.

1.-

Sub AddColumns()
Dim Sht As Worksheet
Set Sht = ActiveSheet
For i = 7 To 29
    Sht.Cells(i, 8).Value = Sht.Cells(i, 7).Value + Sht.Cells(i, 8).Value
Next i
End Sub

2.-

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myRow As Long, myCol As Long
Debug.Print ActiveSheet.Name
   If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
   Debug.Print Target.Address
        If Not Intersect(Target, Range("J7:J29")) Is Nothing Then
            If IsNumeric(Target) Then
                myRow = Target.Row
                    If Cells(myRow, 8).Value = "" Then
                        myCol = 9
                    Else
                        myCol = 8
                    End If
                       On Error Resume Next
                            Application.EnableEvents = False
                                If Target.Value > Cells(myRow, myCol).Value Then
                                    MsgBox "Value is grather than H or I"
                                    Target.Value = ""
                                    Exit Sub
                                Else
                                    Cells(myRow, myCol).Value = Cells(myRow, myCol).Value - Target.Value
                                End If
                            Application.EnableEvents = True
                       On Error GoTo 0
            End If
        End If
End Sub

Thank you for helping me achieve this!
edit: Thank you for achieving this for me!

Re: sheet code

On testing, I saw once the message that the value was greater than H or I, not seeing it any more nor the values are reduced by J

Re Macro 1.

To get rid of zeros I changed formula in G7:G29 to "=IF(E7="√";"";IF(D7-F7=0;"";D7-F7))"
Now I am getting RunTime ERROR 13: Type mismatch
Sht.Cells(i, 8).Value = Sht.Cells(i, 7).Value + Sht.Cells(i, 8).Value


p.s. If G is blank and H is blank H becomes zero instead of be left blank

Deleted this post

Hi @ drgkt

Macro 2: Is not working as supposed to. Sometimes it gives the message "Value is grater than H or I", sometimes it is not, BUT FAILS to add the value to either H or I.

I think I found the bug.
by sure, with the previous code, after you saw the "Value is greater than H or I" message, the worksheet started to show a weird performance.
it was because we ended the sub leaving "Application.EnableEvents = False"
now, try with this please.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myRow As Long, myCol As Long
   If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
        If Not Intersect(Target, Range("J7:J29")) Is Nothing Then
            If IsNumeric(Target) Then
                myRow = Target.Row
                    If Cells(myRow, 8).Value <> "" Then
                        myCol = 8
                    ElseIf Cells(myRow, 9).Value <> "" Then
                        myCol = 9
                    Else
                        Exit Sub
                    End If
                    On Error Resume Next
                     Application.EnableEvents = False
                         If Target.Value > Cells(myRow, myCol).Value Then
                             MsgBox "Value is grather than H or I"
                             Target.Value = ""
                             Application.EnableEvents = True
                             Exit Sub
                         Else
                             Cells(myRow, myCol).Value = Cells(myRow, myCol).Value - Target.Value
                         End If
                     Application.EnableEvents = True
                    On Error GoTo 0
            End If
        End If
End Sub

Hi @ drgkt

My answers take sometimes longer than you may like
I'm sory, I'm not a 24/7 follower of this site, I just come here from time to time, when I'm free, and feel the liking.

for macro#1
If you want not to do anything when there is nothing in H(i), then you can change to this:

Sub AddColumns()
Dim Sht As Worksheet
Set Sht = ActiveSheet
For i = 7 To 29
    If Sht.Cells(i, 8).Value <> "" Then
        Sht.Cells(i, 8).Value = Sht.Cells(i, 8).Value - Sht.Cells(i, 7).Value
    End If
Next i
End Sub

for macro# let me check, I think I understand your point.