Capital each word excluding “and” in the post code column all letters in upper case

This is the code I used to make capital each word, but I want to exclude “and” and in column “L” all upper case. So I would appreciate if someone can modify this code to exclude “and” also upper case in column L.
Thank you all and merry Christmas and Happy New Year

Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "A1:P200"

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
If Not IsNumeric(.Value) Then
If Not .HasFormula Then
.Value = Application.PROPER(.Value)
End If
UPPER (L3)
End If
SUBSTITUTE(PROPER(B3),"And","and")

End With
End If

ws_exit:
Application.EnableEvents = True
End Sub