スキルアップ・問題解決なら、モーグにおまかせ！

初投稿です。VBAに関しては無知です。
在庫管理のため、伝票入力簡易化を図り、VBAについて調べています。
下記サイトでA1のセルに数字を打ち込んでいくと加算できるようになりました。
 
https://oshiete.goo.ne.jp/qa/2154378.html
 
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target.Value = "" Then Exit Sub
x = Target.Value
With Application
.ScreenUpdating = False
.EnableEvents = False
.Undo
y = Target.Value
Target.Value = x + y
.EnableEvents = True
.ScreenUpdating = True
End With
With Cells(ActiveSheet.Rows.Count, "C").End(xlUp)
.Offset(1, 0).Value = x
.Offset(1, 1).Value = Time()
End With
End Sub
 
これに加え、A2、A3、A4と複数のセルで入力、別の数字を打ち込んで
加算されるようにしたいのですがどうすればよいのでしょうか？
どなたかご存じの方、ご教示ください。

効率的な記述をしても理解に時間がかかるかもしれないので一番わかりやすい（はず）の処理は下記のとおりです。赤字部分
 
▼▼▼▼
Private Sub Worksheet_Change(ByVal Target As Range)
     
    If Target.Address <> "$A$1" And Target.Address <> "$A$2" And Target.Address <> "$A$3" And Target.Address <> "$A$4" Then Exit Sub
     
    If Target.Value = "" Then Exit Sub
     
    x = Target.Value
     
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Undo
        y = Target.Value
        Target.Value = x + y
        .EnableEvents = True
        .ScreenUpdating = True
    End With
     
    With Cells(ActiveSheet.Rows.Count, "C").End(xlUp)
        .Offset(1, 0).Value = x
        .Offset(1, 1).Value = Time()
    End With
 
End Sub
 
まず、VBの参考書（初心者向けVB教本系）を必ず手元に用意いただければ幸いです。
今回の要望「A1以外のセルでもやれるようにしたい」がどのような処理となったか赤字部分をよく理解ください。

追記：提示いただいたソースコードの末尾には入力履歴をC列に書き出すことができる処理が含まれていますが、
今回の変更修正で「どのセルに入力した履歴なのかわからない」という問題が出てきます。
（そもそも入力履歴自体を使用しないなら読み飛ばしてください。）
 
・どのセルを変更したのか
・どんな入力がなされたか
・いつ記録されたか
 
が必要になるかなと思いますが、提示のソースコードの「いつ記録されたか」の記載については時刻表記しかないので「〇月×日」という判断がつきません。
Time()　を　Now()　に変更すると年月日と時刻まで記録されます。目的に沿って必要なデータを入力するように変更してください。
 
▼それを踏まえて、C列以降に上記3要素の入力履歴を記録するならば、
    With Cells(ActiveSheet.Rows.Count, "C").End(xlUp)
        .Offset(1, 0).Value = Target.Address
        .Offset(1, 1).Value = x
        .Offset(1, 2).Value = Now()
    End With

 QooApp様
 
ご回答ありがとうございます。
コード作成の際、改行していくにはどうすれば良いのでしょうか？
具体的には
　セルE7〜E45、I7〜I40、M6〜M41、Q6〜Q43に加算する指示を入力したいです。
 
何度も申し訳ございません。
よろしくお願いいたします。

その質問が来ることは想定済みでした。
 
が、その上で一番わかりやすい方法で記述したつもりです。
ゼロベースでソースコードを書かせるのはこのサイトの規約に反しますので、発展的な考え方ができるように書いたつもりです。
 
私の第1投稿の赤字部分をよく観察してください。
今回の議題に対する変更箇所は唯一1行のみです。
 
元々セルA1（表記上は$A$1ですが）しか加算されない仕組みだったものに、A2・A3・A4が増えたらどうなるかという質問で改良した箇所を赤字で記載しています。
 

引用:
セルE7〜E45、I7〜I40、M6〜M41、Q6〜Q43に加算する指示を入力したいです。

QooApp さんの引用:

「If ■■■■■ Then」の部分は「もし■■■■■が正しかったら」という疑問文になります。

横から失礼します。
 
まずは、22/01/19 14:50:13の質問にコメントします。
1. 対象範囲の限定

  If Intersect(Target, Range("E7:E45,I7:I40,M6:M41,Q6:Q43")) Is Nothing Then Exit Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x As Double, y As Double    'またはLongかCurrencyか
    Dim rng As Range
    
    If Intersect(Target,Range("E7:E45,I7:I40,M6:M41,Q6:Q43")) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub  ' 複数セルの同時変更はとりあえず対応せず。
    
    '設定変更
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    x = Target.Value        '入力値
    Set rng = ActiveCell    '移動後の現在のセルを記憶  ■
    Application.Undo        '元に戻す
    y = Target.Value        '入力前の数値
    Target.Value = x + y    '合計値に更新
    rng.Select              'セル位置を復旧            ■
    
    'ヒストリーに書き込み
    With Cells(Rows.Count, "C").End(xlUp)   'ここはそのまま
        .Offset(1, 0).Value = x
        .Offset(1, 1).Value = Time()
    End With
    
    '設定の復旧
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

この仕事の意図がよく理解できないですが、
 
なにか電卓の代わりをやっているような感じを受けます。
 
もし、入力間違いあったとして、
どのように、その間違いを検出するのか？
直前の入力が間違っているとは限らないという前提はおかしいかな？
 
Ａ列に上から入力していき、右隣へ累計(計算式）を入れれば、
検証はできるのではないか？
（マクロ不要）