Проблема сортировки по диапазону со словом vba

Question

Я пытаюсь отсортировать диапазон на основе диапазона (например: range(I31:I10000")), но я получаю ошибку.Я использую слово vba для доступа к файлу Excel, чтобы извлечь некоторые данные для передачи этих данных в мой файл слова.

With xlBook.sheets(1)

        ' searching for the Reference


Set rg = .Cells.Find(what:="Référence")
    refRow = .Range(rg.Address).Row
    refColumn = .Range(rg.Address).Column

    Set desigAdrs = .Cells.Find(what:="Désignation")

    desigColumn = .Range(desigAdrs.Address).Column 'numero de colone Designation
    tmp = "G" & (refRow + 2) & ":I" & 10000
    .Sort.SortFields.Clear
    .Sort.SortFields.Add2 Key:=.Range("I31:I10000") _
    , SortOn:=xlSortOnValues, Order:=xlAscending
    With .Sort
        .SetRange .Range(tmp)
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With


End With

Я хочу, чтобы он сортировался на основе значений, поскольку не все строки содержат текст,но я получаю ошибку