часто применяю методику --особенно для больших таблиц, оформление сохраняется  
 
--открываю ворд-таблицу   bbb.doc  
--сохранить как НТМ-документ(обычный) bbb.htm  
--переименовываю bbb.htm в bbb.xls  
--открываю bbb.xls в екселе с маленькой руганью  
--сохраняю как нормальный bbb.xls или bbb.xlsх

смотрите, не мое

Sub Сортировка()  
   Dim I As Integer, J As Integer  
 
   For I = 1 To Sheets.Count - 1  
       For J = I + 1 To Sheets.Count  
           If Val(Sheets(I).Name) > Val(Sheets(J).Name) Then  
               Sheets(J).Move Before:=Sheets(I)  
           End If  
       Next J  
   Next I  
End Sub

тогда так

какой-то сбой идет при отправке  
 
shanemac51@yandex.ru

w2003 v w2007