Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A:A]) Is Nothing Or _
Not Intersect(Target, [B:B]) Is Nothing Or _
Not Intersect(Target, [J:J]) Is Nothing Then
If Range("P" & Target.Column).Value <> "" And _
Range("Q" & Target.Column).Value <> "" And _
Range("R" & Target.Column).Value <> "" Then _
Range("L" & Target.Column).ClearContents
End If
End Sub