Сортировка строк

[FormAlDeGid]

Подскажите пжалста как будет выглядеть код сортировки строк по значению столбца "Е"?
ну и до кучи еще вопрос: как раздвинуть столбец "С" и сделать формат ячеек в нем текстовым? а то уже напрягает после копирования догадываться где какой номер был.
А еще круче будет если все ячейки с текстом будут иметь все границы =)

мой макрос делающий форматирование который я хотел бы дополнить

Sub 123()
'
' 123 Макрос
' Формирование столбцов
'
' Сочетание клавиш:
'
Columns("A:B").Select
Selection.Delete Shift:=xlToLeft
Columns("F:F").Select
Selection.Delete Shift:=xlToLeft
Columns("G:L").Select
Selection.Delete Shift:=xlToLeft
Columns("H:H").Select
Selection.Delete Shift:=xlToLeft
Columns("C:C").Select
Selection.Cut
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Columns("E:E").Select
Selection.Cut
Columns("H:H").Select
Selection.Insert Shift:=xlToRight
Columns("F:F").Select
Selection.Cut
Columns("E:E").Select
Selection.Insert Shift:=xlToRight
Range("A2").Select
Columns("G:G").Select
Selection.NumberFormat = "#,##0.00$"
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("A:F").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub

[SAS888]

Примерно так:

Sub Main()
    Application.ScreenUpdating = False
    [A:R].Sort Key1:=[E2], Order1:=xlAscending, Header:=xlGuess
    Union([A:B], [F:F], [G:L], [H:H]).Delete
    [C:C].Cut [A:A]: [E:E].Cut [H:H]: [F:F].Cut [E:E]
    [G:G].NumberFormat = "#,##0.00$": [G:G].HorizontalAlignment = xlRight
    [A:F].HorizontalAlignment = xlLeft: Columns("A:H").AutoFit
    With ActiveSheet.UsedRange
        .Borders(xlEdgeLeft).LineStyle = xlContinuous
        .Borders(xlEdgeTop).LineStyle = xlContinuous
        .Borders(xlEdgeBottom).LineStyle = xlContinuous
        .Borders(xlEdgeRight).LineStyle = xlContinuous
        .Borders(xlInsideVertical).LineStyle = xlContinuous
        .Borders(xlInsideHorizontal).LineStyle = xlContinuous
    End With
End Sub

Пример во вложении.