Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 4 Or Target.Column = 3 Then
Target.Value = UCase(Left(Target.Value, 1)) & Mid(Target.Value, 2)
End If
If Target.Column = 5 Then
Range(Target.Address).Value = Replace(Target, " ", "")
End If
Application.EnableEvents = True
End Sub