макрос для объединения ячеек

[BAP9IT]

здравствуйте добрые люди!
нужна помощь у меня таблица з 2167 строчек и 4 столбца. первый столбец с идентификационным кодом, 2-фамилия, 3-имя, 4-отчество, мне надо чтобы фамилия, имя и отчество были в одной ячейке, то есть объединить в каждой строке три эти ячейки с фамилией, имям и отчеством. выкладываю файл с примером мне надо чтобы все строчки выглядели как первые три.
очень прошу помогите пожалуйста, мне очень срочно надо это зделать
пример.doc

[viter.alex]

Ставишь курсор в во вторую ячейку строки, с которой нужно начать и запускаешь макрос

Sub Merging()
    Selection.HomeKey
    Do
        With Selection
            .EndKey wdLine, wdExtend
            .EndKey wdLine, wdExtend
            .EndKey wdLine, wdExtend
            .Cells.Merge
            .MoveDown wdLine, Extend:=wdMove
        End With
        DoEvents
    Loop While Selection.Information(wdWithInTable)
End Sub

[BAP9IT]

огромное спасибо! очень помог