Можете воспользоваться готовым решением:  
http://excelvba.ru/code/ArraySwapColumns  
 
Пример использования:  
 
Sub test()  
   Dim ra As Range: Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp)).Resize(, 8)
   ra.Value = ArraySwapColumns(ra.Value, "2,3,8,4,5,1,,")  
End Sub  
 
 
Пример в файле: http://excelvba.ru/XL_Files/Sample__01-05-2011__20-11-20.zip

{quote}{login=[25rus]Gleyd}{date=01.05.2011 05:37}{thema=Расстановка столбцов в нужном порядке}{post}... Необходимо... желательно... необходимо учесть несколько вариантов... заранее THX{/post}{/quote}
Делаем по-рабоче-крестьянски, записываем рекордером, правим... Стандартная сортировка полей/столбов по доп "шапке" -  в скрине... ;)  
-79531-

{quote}{login=Hugo}{date=01.05.2011 06:01}{thema=}{post}Записать процесс рекордером не пробовали?  
Можно получить код вроде такого (после небольшой коррекции):  
 
Sub tt()  
   Columns("G:G").Cut  
   Columns("A:A").Insert Shift:=xlToRight  
End Sub  
 
Теперь добавьте цикл (или повторите несколько раз) поиск по первой строке своих значений - и в общем код готов.  
Но вот разночтения наименований мне не нравятся - № может ведь тогда быть не только в столбце номеров, но и например в "ГосН или Время", сочетание  "адр." тоже вдруг может оказаться включено в другое слово (хотя в примере такого нет).{/post}{/quote}  
пробовал.  
правил полученный код около недели, пока в конец не запутался)  
да и код получился огромный в итоге....  
разночтения могут быть только в заголовках столбцов, в таблице такой текст не встретится

{quote}{login=EducatedFool}{date=01.05.2011 06:11}{thema=}{post}Можете воспользоваться готовым решением:  
http://excelvba.ru/code/ArraySwapColumns  
 
Пример использования:  
 
Sub test()  
   Dim ra As Range: Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp)).Resize(, 8)
   ra.Value = ArraySwapColumns(ra.Value, "2,3,8,4,5,1,,")  
End Sub  
 
 
Пример в файле: http://excelvba.ru/XL_Files/Sample__01-05-2011__20-11-20.zip{/post}{/quote}  
 
та же проблема - порядок столбцов не постоянный

было бы слишком просто))) вариантов расположения столбцов в первоначальной таблице - больше одного приведенного в примере...  
Но варианты-то эти где-то хранятся? Что нельзя над "щапкой" все разместить или в первую строку подставлять?.. Это и макросу/сам надо ведь подсказывать иль,  чего паче, в его нутро вколачивать...  
ps Кому надо - ищет решение, кому лень - причину...

{quote}{login=EducatedFool}{date=01.05.2011 06:40}{thema=}{post}т.е. вы хотите сказать, что и заголовки столбцов, в принципе, могут быть любые,  
да и порядок этих столбцов произвольный?  
 
тут без использования ИИ не обойтись, и никакие макросы не помогут.{/post}{/quote}  
 
собственно.... есть люди знающие что это не так)  
надеюсь сам таким стать со временем xD

с восьмым столбцом разобрался)  
дажеть регистр различает сам:)  
COOOOOOL!!!

Казанский красиво реализовал то, что я выше в общем описал словами.  
В общем-то это наверное единственное направление, которое могло быть.  
Решение с Const ORDER и двумя Split хорошее, запомнить всем! :)