Метод быстрой сортировки

intI = 1
    intCountCells = 0
    For intI = 1 To intCnt
        If Sheets(2).Cells(intI, 2).Value <> "" Then
            intCountCells = intCountCells + 1   
        End If
    Next intI
    intI = 0
    ReDim intArr(intCountCells)   
    For intI = 0 To intCountCells
        intArr(intI) = Sheets(2).Cells(intI + 1, 2).Value  
    Next intI

'Private Sub asdf()
Private Sub cmdPrint_Click()
Dim rngCell As Range, intI%, intOtvet%, intCnt%, intCountCells%, intArr() As Integer
    frmList.lstCells.Clear
    Sheets("Лист2").Cells.ClearContents
    intI = 1
      ReDim intArr(1 To Selection.Cells.count)
         For Each rngCell In Selection
            intArr(intI) = CInt(Application.Trim(rngCell.Value))
            intI = intI + 1
         Next
    Sheets("Лист2").Cells(1, "b").Resize(UBound(intArr), 1).Value = Application.Transpose(intArr)
   intCountCells = UBound(intArr)
        If Sheets("Лист2").Cells(1, "b").Value = vbNullString Then
               MsgBox "Выделите ячейки для заполнения!", vbCritical, "Ошибка"
               frmList.Hide
               Exit Sub
        End If
    intI = 0
   intOtvet = MsgBox("Нажмите Да для пузырьковой сортировки." & _
         Chr(10) & "Нажмите Нет для быстрой сортировки(метод Хоара)." & _
               Chr(10) & "Нажмите Отмена для записи без сортировки.", 3, "Выберите тип сортировки")
   Select Case intOtvet
      Case 2
        frmList.lstCells.List = intArr()
    Case 6
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ' Сортировка методом Пузырька '
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Dim intP As Integer, intJ As Integer, intTmp As Integer
        For intP = LBound(intArr) To UBound(intArr) - 1
            For intJ = (intP + 1) To UBound(intArr)
                If intArr(intP) > intArr(intJ) Then
                    intTmp = intArr(intP)
                    intArr(intP) = intArr(intJ)
                    intArr(intJ) = intTmp
                End If
            Next intJ
        Next intP
'   Sheets("Лист2").Cells(1, "d").Resize(UBound(intArr), 1).Value = Application.Transpose(intArr)
        lstCells.List = intArr
    Case 7
        Call QSort(intArr(), LBound(intArr), UBound(intArr))
        lstCells.List = intAr
'   Sheets("Лист2").Cells(1, "d").Resize(UBound(intArr), 1).Value = Application.Transpose(intArr)
    End Select
End Sub
 
Sub QSort(ByRef ARR() As Integer, Optional low As Integer, Optional high As Integer)
'!!!  за основу - код от Dragokas !!!
  Dim m As Long
  Dim wsp As Integer, i As Integer, j As Integer
  i = low
  j = high
  m = ARR((low + high) \ 2)
  Do While (i <= j)
    Do While (ARR(i) < m And i < high)
      i = i + 1
    Loop
    Do While (m < ARR(j) And j > low)
      j = j - 1
    Loop
    If i < j Then
      wsp = ARR(i)
      ARR(i) = ARR(j)
      ARR(j) = wsp
    End If
    If i <= j Then
      i = i + 1
      j = j - 1
    End If
  Loop
  If low < j Then Call QSort(ARR, low, j)
  If i < high Then Call QSort(ARR, i, high)
Sheets("Лист2").Cells(1, "f").Resize(UBound(ARR), 1).Value = Application.Transpose(ARR)
End Sub