Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .CountLarge > 1 Then Exit Sub
If .Column <> 5 Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
If Not IsNumeric(.Value) Then Exit Sub
Application.EnableEvents = 0
.NumberFormat = "#,##0"
.HorizontalAlignment = 4: .IndentLevel = 1
.Value = Val(Left$(.Value & "00000", 6))
Application.EnableEvents = -1
End With
End Sub