Macro que para poner mayúsculas y borra datos de celda

[asrainocturna]

Buenas Tardes

Tengo una archivo con una macro que sin importar si se usa mayúscula o minúscula me cambia toda la información a mayúscula excepto en celdas donde ese escribe el e-mail hasta ahí todo va bien, pero necesito que para el caso del esa celda donde va el correo siempre sea minúscula, adicional a esto también que la celdas donde va el número de identificación, el numero de teléfono y el número de cuenta me elimine los espacios intermedios si los escriben con espacio, que en la celda donde va el número de la cuenta también me elimine los guiones si lo escriben esos caracteres y además que si se va trabajar sobre un archivo con datos al momento de sobrescribir el primer campo que es nombre borre la información que haya escrita.

Comencé a modificar el macro que ya tenía pero me arroja un error de depuración

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Target, Range("F15", "B33")) Is Nothing Then
Target = UCase(Target)
Else
Target = LCase(Target)
End If
Application.EnableEvents = True


If Union(Range("E9:L9"), Target).Address = Range("E9:L9").Address Then
Range("A11:L11,A13:L13,A15:L15,E17:H17,C19:L19,C21:L21,D23,A26:L26,A28:L28,A30:L30,A32:L32,B33:L33,E34:H34,C36:L36,C38:L38").ClearContents

End If
End Sub

Muchas gracias por la ayuda que me puedan dar

Att, Maria

Deudores NOAA.xlsm