Форматирование и перенос

Всем привет!!! Ребята в общем проблема такая, у меня есть две таблички, одна зарубежная которую мне присылают, и вторая моя где я должен из первой скопировать данные в свою, в  определенные столбцы.
В зарубежной табличке идут данные паспортов, и у них есть такая штука как МЛБГ, это номер где зашита дата рождения и пол человека, вот пример 2509964730048. Мне надо извлеч из этого номера дату рождения, делается это следующим образом с лева на прво я начинаю считать количество цифр по 2, и ставлю точку 25.09. потом подставляю 1 и следующие три цифры 964, и остальные отбрасываю, получается 25.09.1964))) вуаля,)) ну а теперь вопрос как это сделать с помошью функции, а то данных ооооочень много времени отнимает огромное количестово, файл прилагаю там два лист) заранее спасибо