{quote}{login=Соната}{date=31.05.2012 07:04}{thema=Разделение данных из одного столбца по разным столбцам}{post}... очень надеюсь на...{/post}{/quote}  
А нажать F1?.. А копировать - вставить - транспонировать?.. А просто "=ТРАНСП(C3:C13)"?.. Как вариант, разумеется... ;) -93507-

{quote}{login=Соната}{date=31.05.2012 08:16}{thema=}{post}Ваш файл у меня не открывается...{/post}{/quote}  
О те на!.. А свой открывается, пробовали?.. ;) На форуме принято хотя бы одну свою попытку решить задачу прикладывать, да с самого началу подробнее объяснять хотелку... -85011-

A где проблема зарыта?  
Логика для автоматизации не просматривается, а вручную преобразовать - 5 минут с перекуром?

Для автоматизации используйте Rows(i).OutlineLevel.  
Но т.к. логики действительно нет (почему именно такая выборка?) - ломать голову неохота...

Где-то на 76% справляется такой макрос:  
 
Option Explicit  
Option Compare Text  
 
Sub tt()  
Dim cc As Range  
On Error Resume Next  
For Each cc In [a1].CurrentRegion.Cells
cc.Offset(, 1) = Split(cc.Value, "маг")(0)  
cc.Offset(, 2) = "маг " & Split(cc.Value, "маг")(1)  
Next  
End Sub  
 
 
Осторожно с названиями типа  
Жумагали ИП маг Арзан  
Жумагали ИП Маг Арзан -3