Добрый день ребята. Помогите совместить два макроса

[Александр16199]

Добрый день ребята. Помогите не профессионалу совместить два макроса с таким расчетом чтобы возможно было собирать значения из двух диапазонов ячеек и двух независимых ячеек в четыре ячейки произвольно расположенных на листе.
Вот эти два макроса ( первый: одна ячейка ввода и одна ячейка вывода накопительного значения в возрастающем итоге. Второй тоже, только вывод с диапазона ячеек в одну накопительную в возрастающем итоге:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Address(False, False) = "A1" Then
If IsNumeric(.Value) Then
Application.EnableEvents = False
Range("A2").Value = Range("A2").Value + .Value
Application.EnableEvents = True
End If
End If
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
If IsNumeric(Target.Value) Then
Application.EnableEvents = False
range("C1").Value = range("C1").Value + Target.Value
Application.EnableEvents = True
End If
End If
End Sub

[ВладимирC]

Я, конечно не профессионал. Но попробуйте так:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Address(False, False) = "A1" Then
If IsNumeric(.Value) Then
Application.EnableEvents = False
Range("A2").Value = Range("A2").Value + .Value
Application.EnableEvents = True
End If
End If
End With
If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
If IsNumeric(Target.Value) Then
Application.EnableEvents = False
Range("C1").Value = Range("C1").Value + Target.Value
Application.EnableEvents = True
End If
End If
End Sub