Bir hücreyi silince başka hücreleride silme

[yNsr43]

merhabalar

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [H9:H1048576]) Is Nothing Then Cells(Target.Row, "G") = Format(Now, "dd.mm.yyyy")
End Sub

H hücresindeki yazıyı sildiğimde G hücresideki tarihinde silinmesini, akabinde belirlerlediğim başka hücrelerinde silinmesini istiyorum nasıl yapabilirm şimdiden teşekkürler.

 

[yNsr43]

tekrar merhaba koşullu silme işlemini

If Intersect(Target, Range("b:b")) Is Nothing Then Exit Sub
If Target = "" Then Range(Cells(Target.Row, 5), Cells(Target.Row, 11)).ClearContents

şununla çözdüm arayan arkadaşlara lazım olur belki

fakat bu kod ile yukaridaki kodun attirdiği tarihler silinmiyor bunu nasıl aşabiliriim ?