Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:D8")) Is Nothing Then
If Target = "1" Then
Application.EnableEvents = False
Range("A" & Target.Row & ":D" & Target.Row).ClearContents
Target = "1"
Application.EnableEvents = True
End If
End If
If Not Intersect(Target, Range("F1:H8")) Is Nothing Then
If Target = "1" Then
Application.EnableEvents = False
Range("F" & Target.Row & ":H" & Target.Row).ClearContents
Target = "1"
Application.EnableEvents = True
End If
End If
End Sub