Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("M7:O" & Range("A65535").End(xlUp).Row)) Is Nothing Then
Range(Cells(Target.Row, 13), Cells(Target.Row, 15)).ClearContents
Target = IIf(Target = "", 1, "")
End If
If Not Intersect(Target, Range("Q7:S" & Range("A65535").End(xlUp).Row)) Is Nothing Then
Range(Cells(Target.Row, 17), Cells(Target.Row, 19)).ClearContents
Target = IIf(Target = "", 1, "")
End If
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("M7:O" & Range("A65535").End(xlUp).Row)) Is Nothing Then
Cancel = True
Range(Cells(Target.Row, 13), Cells(Target.Row, 15)).ClearContents
Target = IIf(Target = "", 1, "")
End If
If Not Intersect(Target, Range("Q7:S" & Range("A65535").End(xlUp).Row)) Is Nothing Then
Cancel = True
Range(Cells(Target.Row, 17), Cells(Target.Row, 19)).ClearContents
Target = IIf(Target = "", 1, "")
End If
End Sub