Excel VBA排序没有对所有列进行排序

Question

我的代码对列A进行了正确的数字排序，并在列B-D中绑定了与其相关的信息，但不对列E-M进行排序，后者是qty值。因此，当我添加一个股票#的描述，供应商和部分#全部排序与股票#，但没有任何qty值。他们就待在同一排。我有一些数据需要保留在排序的股票#中，直到列X。

Sub Sorting()
    Dim sht As Worksheet
    Dim LastRow As Long
    Dim LastColumn As Long
    Dim StartCell As Range

    Set sht = Sheet1
    Set StartCell = Range("A9")

    'Refresh UsedRange
      Worksheets("Order Summary").UsedRange

    'Find Last Row
    LastRow = sht.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

    'Select Range
    sht.Range("A9:A" & LastRow).Select

    Range("A9:A" & LastRow).Sort _
      Key1:=Range("A9"), Header:=xlYes
End Sub

Answer 1

Sub Sorting()
    Application.ScreenUpdating = False
    ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add Key:=Range("A9")
    ActiveSheet.Sort.SetRange Range("A9:X500")
    ActiveSheet.Sort.Apply
    Application.ScreenUpdating = True
End Sub