Составить алгоритм и программу, которая вначале выводит список всех отличников, затем список хорошистов, троечников, а затем двоечников в ячейки листа

Sub xx()
Dim a() As Single, fam() As String
i = 1
Do While Cells(i, 1) <> ""
i = i + 1
Loop
n = i - 1
ReDim a(n): ReDim fam(n)
 
j = 0: c = 0: k = 0: v = 0
For i = 1 To n
    Select Case a(i)
        Case a(i) = 5
        j = j + 1
        fam(j) = fam(i)
        Case a(i) = 4
        k = k + 1
        fam(k) = fam(i)
        Case a(i) = 3
        c = c + 1
        fam(c) = fam(i)
        Case a(i) = 32
        v = v + 1
        fam(v) = fam(i)
    End Select
    
For i = 1 To j
Cells(i, 4) = fam(j)
Next
 
For i = 1 To k
Cells(i, 5) = fam(k)
Next
 
For i = 1 To c
Cells(i, 6) = fam(c)
Next
 
For i = 1 To v
Cells(i, 7) = fam(v)
 
Next i
 
End Sub

i = 1
Do While Cells(i, 1) <> ""
i = i + 1
Loop
n = i - 1

n = Cells(Cells.Rows.Count, 1).End(xlUp).Row