pouzij udalostni proceduru, ktera ti text preformatuje a vlozi do bunky, napr neco takoveho pro sloupec L:L:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Pom As String
Application.EnableEvents = False
If Target.Column 12 Then End 'test na sloupec L:L
If Target.Columns.Count > 1 Or Target.Rows.Count > 1 Then End
Pom = Target.Value
Target.Value = Left(Pom, 4) & " " & Mid(Pom, 5, 3) & " " & Mid(Pom, 8)
Application.EnableEvents = True
End Sub