VBA сортировка одномерного массива

[MIKE11IPME]

Условие
відсортувати елементи заданого стовпчика за умовою зменшення величини його елементів
Мм не одномерного а двумерного =)

Тут я попытался по возрастанию , но в строке Arr(j, 1) > Kas
выбивает Sabscript out of range , хотя я не знаю что может тут выходить за пределы
Помогите исправить ошибку

Private Sub CommandButton2_Click()
Dim i, Arr(), Tmp, p, j, n, Kas As Double
    If Selection.Columns.Count > 1 Then MsgBox "кол-во столбцов>1"
    If Selection.Columns.Count > 1 Then Exit Sub
    If Selection.Cells.Count = 1 Then MsgBox "кол-во ячеек<2"
    If Selection.Cells.Count = 1 Then Exit Sub
    Mas = Selection.Value
    p = Selection.Rows.Count
    n = p
    Arr = Mas
   For i = 0 To n - 1
        For j = 0 To n - 2 - i
            Kas = Arr(j + 1, 1)
            If Arr(j, 1) > Kas Then
                Tmp = Arr(j, 1)
                Arr(j, 1) = Kas
                Arr(j + 1, 1) = Tmp
            End If
        Next j
    Next i

For i = 1 To p
Selection.Cells(1, i + 2) = Arr(i, 1)
Next
MsgBox k
End Sub

И еще вопрос почему например Mas = Mas1 можно ,а по элементно
нельзя присвоить т.е. p - фиксированное число

For i=1 to p  
Mas(i,1)=Mas1(i,1)
Next

[MIKE11IPME]

Рабочий исправленный вариант=)

Private Sub CommandButton1_Click()
Dim i, j As Long, Arr(), Tmp, n, Kas As Double
    If Selection.Columns.Count > 1 Then MsgBox "кол-во столбцов>1"
    If Selection.Columns.Count > 1 Then Exit Sub
    If Selection.Cells.Count = 1 Then MsgBox "кол-во ячеек<2"
    If Selection.Cells.Count = 1 Then Exit Sub
    Arr = Selection.Value
    n = Selection.Rows.Count
    For i = 0 To n - 1
        For j = 1 To n - 1 - i
            If Arr(j, 1) > Arr(j + 1, 1) Then
                Tmp = Arr(j, 1)
                Arr(j, 1) = Arr(j + 1, 1)
                Arr(j + 1, 1) = Tmp
            End If
        Next
    Next

For i = 1 To n
Selection.Cells(1, i + 2) = Arr(i, 1)
Next
End Sub