VBA：SheetChangeイベント 特定の列でDeleteボタンを押してもセルの中身が削除されない

Question

前提・実現したいこと

指定の列（T,V,X）に、入力列（R,S,U,W）に日付を打ち込んだら、10営業日、20営業日、30営業日と日付を計算させるマクロイベントを作成しております。
（例）R列に今日の日付を入力したら、T列は10営業日後の日付、V列は20営業日後の日付、X列は30営業日後の日付が自動で入力される。
R列を削除（空白）にしたら、以降の列も自動的に削除

以下、コード

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Yasumi
Dim i
Dim j
Dim k
Dim Rng As Range

Set Yasumi = ThisWorkbook.Worksheets(2)

'各営業日ごとの日付を計算
i = Application.WorkDay(Target.Value, 10, Yasumi.Range("A2:A81"))
j = Application.WorkDay(Target.Value, 20, Yasumi.Range("A2:A81"))
k = Application.WorkDay(Target.Value, 30, Yasumi.Range("A2:A81"))

Application.EnableEvents = False

For Each Rng In Target

'R列に予定日が入ったら、T列に10営業日後の日付を入れる。
If IsDate(Rng.Value) = True And Rng.Column = 18 And Rng.Row <> 1 Then
    Rng.Offset(0, 2).Value = i
    Rng.Offset(0, 2).NumberFormatLocal = "yyyy/mm/dd"
'R列の日付が消されたらT列の日付も消す
    ElseIf Rng.Value = "" And Rng.Column = 18 And Rng.Offset(0, 2) <> "" And Rng.Row <> 1 Then
        Rng.Offset(0, 2).Value = ""
        Rng.Offset(0, 4).Value = ""
        Rng.Offset(0, 6).Value = ""
End If

'S列に実績日が入ったら、T列に10営業日後の日付を入れる
If IsDate(Rng.Value) = True And Rng.Column = 19 And Rng.Row <> 1 Then
    Rng.NumberFormatLocal = "YYYY/MM/DD"
    Rng.Offset(0, 1).Value = i
    Rng.Offset(0, 1).NumberFormatLocal = "yyyy/mm/dd"
'S列の日付が消されたら、T/V/W列の日付も消す（R列の日付は消さない）
    ElseIf Rng.Value = "" And Rng.Column = 19 And Rng.Offset(0, 1) <> "" And Rng.Row <> 1 Then
        Rng.Offset(0, 1).Value = ""
        Rng.Offset(0, 3).Value = ""
        Rng.Offset(0, 5).Value = ""
End If


'T列に予定が入ったら、V列に20営業日後を入れておく
If IsDate(Cells(Rng.Row, "T")) = True And Rng.Row <> 1 Then
    Cells(Rng.Row, "V").Value = j
    Cells(Rng.Row, "V").NumberFormatLocal = "yyyy/mm/dd"
'T列の日付が消されたら、V/W列の日付も消す
    ElseIf Rng.Value = "" And Rng.Column = 20 And Rng.Row <> 1 Then
        Rng.Offset(0, 2).Value = ""
        Rng.Offset(0, 4).Value = ""
End If


'U列に実績日が入ったら、V列に20営業日後を入れておく
If IsDate(Cells(Rng.Row, "U")) = True And Rng.Row <> 1 Then
    Cells(Rng.Row, "V").Value = j
    Cells(Rng.Row, "V").NumberFormatLocal = "yyyy/mm/dd"
'U列の日付が消されたら、V/X列の日付も消す
    ElseIf Rng.Value = "" And Rng.Column = 21 And Rng.Row <> 1 Then
        Rng.Offset(0, 1).Value = ""
        Rng.Offset(0, 3).Value = ""
End If


'V列に予定日が入ったら､X列に30営業日後を入れておく
If IsDate(Cells(Rng.Row, "V")) = True And Rng.Row <> 1 Then
   Cells(Rng.Row, "X").Value = k
   Cells(Rng.Row, "X").NumberFormatLocal = "yyyy/mm/dd"
'V列の日付が消されたら､X列の日付も消す
    ElseIf Rng.Value = "" And Rng.Column = 22 And Rng.Row <> 1 Then
        Rng.Offset(0, 2).Value = ""
End If


'W列に実績日が入ったら、X列に30営業日後を入れておく
If IsDate(Cells(Rng.Row, "W")) = True And Rng.Row <> 1 Then
    Cells(Rng.Row, "X").Value = k
    Cells(Rng.Row, "X").NumberFormatLocal = "yyyy/mm/dd"
'W列の日付が消されたら､X列の日付も消す
    ElseIf Rng.Value = "" And Rng.Column = 23 And Rng.Row <> 1 Then
        Rng.Offset(0, 1).Value = ""
End If

Next

Application.EnableEvents = True

End Sub

発生している問題

V列でDeleteボタンを押した際、X列も自動的に削除されるはずだが、なぜか日付が入ってしまう。
その日付は本日時点でV列が"1900/1/27"、X列が"1900/2/10"となっている。
X列でDeleteボタンを押しても削除されず、上記日付が入ったままとなっている。

該当のソースコード

'V列に予定日が入ったら､X列に30営業日後を入れておく
If IsDate(Cells(Rng.Row, "V")) = True And Rng.Row <> 1 Then
   Cells(Rng.Row, "X").Value = k
   Cells(Rng.Row, "X").NumberFormatLocal = "yyyy/mm/dd"
'V列の日付が消されたら､X列の日付も消す
    ElseIf Rng.Value = "" And Rng.Column = 22 And Rng.Row <> 1 Then
        Rng.Offset(0, 2).Value = ""
End If

試したこと

例えばU列でDeleteボタンを押すと問題なく動くし、それ以前の列（Rなど）でも問題なく削除動作はされる。

Comments

[Youbun]

Worksheet_Changeイベントしか記入がありませんが、
肝心のDeleteボタンで呼び出す関数も記入してもらえると
原因を考えれると思います。

Answer 1

「T列に予定が入ったら」以降、条件式にRng.Column = xxがないですね。

Comments

[Atsukinov]

ありがとうございます、一つずつ処理するようにコードを変えたらうまくいきました。