как в четырехзначном числе поставить через заданное количество цифр пробел

[KNatalia]

Помогите, пожалуйста, новичку в написании макроса для решения задачки :

Есть столбец с паспортными данными (тысячи строк) вида:
2345
3456
5688
......
......
и так далее (в каждом списке разное количество строк),
Необходимо преобразовать столбец к виду:
23 45
34 56
56 88
.......
.......
должен быть через две цифры пробел, как в паспорте, причем обработка столбца должна заканчиваться на последней строчке, содержащей паспортные данные.

Заранее большое спасибо

[The_Prist]

Наташ, а чем формулы не нравятся?
Допустим цифры в столбце А, начиная с ячейки А2.
В ячейке "В2" пишем формулу
=Левсимв(A2;2)&" "&Правсимв(A2;2)
Затем протягиваем на весь столбец->Выделяем весь столбец->Копируем->Правая кнопка мыши->Специальная вставка->Значения
Нужен именно макрос. Выкладывайте файл и скажите: результат необходимо выводитьв тот же столбец или в другой?

[The_Prist]

Макрос. Заменяет значения в исходном столбце. Столбец А. Если значение в ячейке содержит более или менее 4 символов, то ячейка окрашивается в красный цвет.

Sub Insert_Space
dim rRange as Range,rCell as range
Set rRange = Range(Cells(2,1),Cells(Cells(Rows.Count,1).End(xlup).row,1))
For each rCell in rRange
   if rCell <> "" then
      if len(rCell) = 4 then 
          rCell = Left(rCell,2) & " " & right(rCell,2)
      else
          rCell.interior.color = vbred
      end if
   end if
next rCell
End Sub

[KNatalia]

Спасибо Вам самое большое при большое!

[IgorGO]

правой кнопкой по столбцу / формат ячеек / в списке выбираем "все форматы" / в строке "тип" пишем:##" "##" "##" "## / жмем ОК.