Private Sub Worksheet_Change(ByVal Target As Range)If Intersect(Range("A1:A10,C1:C10"), Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Value = Replace(Target.Value, " ", "")
Target.Value = Left(Target.Value, 2) & " " & Mid(Target.Value, 3, 3) & " " & Mid(Target.Value, 6)
Application.EnableEvents = True
End Sub