Please Correct My Code SOS!

See more:

Office

MS-Excel

VBA

I'm trying to write code in Visual Basic for Application in MS Excel, but it's not working properly. It's for my homework.
Please write the corrected code ASAP.

I don't remember the original task, but that's what I've remembered.
There are two 4x5 matrices in Excel. The user writes some numbers randomly in the matrices and by clicking first button CommandButton1_Click()the code must sort the numbers in the first matrix ascending. By clicking the second button CommandButton2_Click() the code must sort the numbers in the second matrix descending in columns.
Here is the visual example of matrix.

http://i50.tinypic.com/2j34ho7.jpg
That's how the result should look.
http://i49.tinypic.com/i4plkn.jpg

Dim a(4, 5), b(4, 5), buff As Double
 Dim i, j, k  As Integer
Private Sub CommandButton1_Click()
For i = 1 To 4
   For j = 1 To 5
      b(i, j) = Cells(i + 9, j + 1).Value
   Next j
  Next i
For i = 1 To 5
  For j = 1 To 4
   For k = j + 1 To 4
      If b(j, i) < b(k, i) Then
             buff = b(k, i): b(k, i) = b(j, i): b(j, i) = buff
     End If
      Next k
   Next j
 Next i
  For i = 1 To 4
   For j = 1 To 5
       Cells(i + 9, j + 1).Value = b(i, j)
   Next j
  Next i
End Sub

Private Sub CommandButton2_Click()
For i = 1 To 4
   For j = 1 To 5
     a(i, j) = Cells(i + 2, j + 1).Value
      b(i, j) = Cells(i + 9, j + 1).Value
   Next j
  Next i
For k = 1 To 4
  For i = 1 To 4
   For j = i + 1 To 5
    If a(k, i) > a(k, j) Then
     buff = a(k, i):    a(k, i) = a(k, j): a(k, j) = buff
     End If
Next j
   Next i
 Next k
For i = 1 To 4
   For j = 1 To 5
       Cells(i + 2, j + 1).Value = a(i, j)
        Next j
  Next i
End Sub