【マクロ】エクセル マクロ 範囲を拡張して消す

A列で任意の範囲を選択しdeleteキーを押すと
同範囲の隣の列も消す。

例えば、A5からA10まで選択し値を消す。
B5からD10までの値も同様に消したい。
A15からA50までを選択し消せば
B15からD50も消える。
A20を消せばB20からD20も消える。

選択する範囲は必ずA列のどこかで
消すときに値のみ消す。

シートモジュール
Private Sub Worksheet_Change(ByVal Target As Range)
　Dim c As Range
　　If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
　　If Target.Count <= 1000 Then 
　　　Application.EnableEvents = False
　　　　For Each c In Target
　　　　　If c = "" Then
　　　　　　c.Offset(, 1).Resize(, 3).ClearContents
　　　　　End If
　　　　Next c
　　　Application.EnableEvents = True
　　End If
End Sub