Как сортировать данные на листе vbs?

[Dima_com]

Столкнулся казалось с обыкновенной задачей надо по сортировать данные(диапазон) на листе но вот проблема необходимый массив у меня начинается не с 1 строчки а с 5 и на листе есть еще другие данные. То есть сортировать надо выделенный массив.
Нашел такой скрипт
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add
Set objWorksheet = objWorkbook.Worksheets(1)

objExcel.Cells(1, 1).Value = "4"
objExcel.Cells(2, 1).Value = "1"
objExcel.Cells(3, 1).Value = "2"
objExcel.Cells(4, 1).Value = "3"
objExcel.Cells(1, 2).Value = "A"
objExcel.Cells(2, 2).Value = "B"
objExcel.Cells(3, 2).Value = "C"
objExcel.Cells(4, 2).Value = "D"

Set objRange = objWorksheet.UsedRange
Set objRange2 = objExcel.Range("A1")
objRange.Sort(objRange2)

Но как сортировать не UsedRange а выделенную область?
Заранее спасибо за помощь и ценные советь!

[Hugo121]

Так и пишите вместо UsedRange эту свою выделенную область - по имени или по адресам.
Только что-то я не пойму, как Вы этот скрипт применять собираетесь, и зачем именно vbs?

[SaLoKiN]

запись макроса достойная штука, чтобы раскурить что-то.

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

'
    Range("A5:F18").Select
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("A5"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Лист1").Sort
        .SetRange Range("A5:F18")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

это сортировка от минимального к максимальному. в области "A5:F18"

[Hugo121]

Вот сегодня уже делал - тоже диапазон сортируется, но в 2003:

Sub SorMyRange()
    With ActiveSheet.UsedRange
        .Offset(4).Sort Key1:=.Cells(5, 4), Order1:=xlAscending, Header:=xlGuess, _
                        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                        DataOption1:=xlSortNormal
    End With
End Sub

[Dima_com]

Спасибо всем большое уже решил :

PHP код:

objExcel.Range(objExcel.Cells(6,1),objExcel.Cells(5+10,5)).Select
        objExcel.Selection.Sort objExcel.Cells(6,5),2,,,,,,,,False 


,2,,,,, реверс

,1,,,,, сорт

PS. макрос записал в самом начале он к сожалению не оч похож на vbs решение.