По кнопке, список в столбце рандомно перемешивается

Sub ShuffleColumn()
    Dim ws As Worksheet
    Dim dataRange As Range
    Dim auxRange As Range
    Dim i As Long
 
    Set ws = ThisWorkbook.Sheets("Лист1") ' Измените "Лист1" на имя вашего листа
    Set dataRange = ws.Range("A1:A10")    ' Измените A1:A10 на ваш диапазон
    Set auxRange = ws.Range("B1:B10")    ' Измените B1:B10 на диапазон для случайных чисел (рядом)
 
    ' Заполнение вспомогательного столбца случайными числами
    For i = 1 To dataRange.Rows.Count
        auxRange.Cells(i, 1) = Rnd
    Next i
 
    ' Сортировка данных по случайному столбцу
    dataRange.Sort Key1:=auxRange, Order1:=xlAscending, Header:=xlNo
 
    ' Очистка вспомогательного столбца
    auxRange.ClearContents
End Sub

dataRange.Sort Key1:=auxRange, Order1:=xlAscending, Header:=xlNo

dataRange.Resize(, 2).Sort Key1:=auxRange, Order1:=xlAscending, Header:=xlNo