Sub  Макрос1()
'
'  Макрос1  Макрос
'

'
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Rows("1:4").Select
    Selection.Delete Shift:=xlUp
    Columns("A:A").ColumnWidth = 5
    Columns("B:B").ColumnWidth = 12.67
    Columns("C:C").ColumnWidth = 12.83
    Columns("D:D").ColumnWidth = 12.83
    Columns("E:E").ColumnWidth = 13.83
    Columns("E:E").ColumnWidth = 16.33
    Columns("F:F").ColumnWidth = 16
    Columns("F:F").ColumnWidth = 20.33
    Columns("F:F").ColumnWidth = 25.33
    Columns("F:F").ColumnWidth = 26
    Columns("G:G").ColumnWidth = 11.67
    Columns("G:G").ColumnWidth = 15
    Columns("H:H").ColumnWidth = 13
    Columns("H:H").ColumnWidth = 12.17
    ActiveWindow.SmallScroll Down:=9
    Rows("12:22").Select
    Selection.Delete Shift:=xlUp
    ActiveWindow.SmallScroll Down:=-30
    Columns("B:B").ColumnWidth = 8.33
    Columns("G:G").Select
    ActiveWorkbook.Worksheets("Ëèñò1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Ëèñò1").Sort.SortFields.Add Key:=Range("G1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Ëèñò1").Sort
        .SetRange Range("A2:H23")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("H2:H11").Select
    Range("H11").Activate
    Selection.NumberFormat = "0.00000"
    Selection.NumberFormat = "0.0000"
    Selection.NumberFormat = "0.000"
    Selection.NumberFormat = "0.00"
    Range("G2").Select
End Sub