Вывести таблицу отличников и троечников

Dim I1 As Integer  'добавить!
I1 = 1  'добавить!
For I = 1 To M
  SumOtsSt = 0
    For J = 1 To N
    SumOtsSt = SumOtsSt + Ots(I, J)
    Next J
  SrBalSt = SumOtsSt / N
  Range("H59").Cells(I, 1).Value = SrBalSt
  If SrBalSt < 4 And Pol(I) = "Æ" Then
  KolDevTr = KolDevTr + 1
  Range("E94").Cells(I1, 1).Value = Fam(I)  'изменить!
  I1 = I1 + 1
  Else
  'Range("E94").Cells(I, 1).Value = "-"  'удалить!
  End If
  Next I
    If KolDevTr = 0 Then
    Range("E117").Value = "Íåò äåâî÷åê-òðîå÷íèö"
    End If
End Sub

Sub test()
    Dim i As Integer
    Dim M(), D()
    ReDim M(1 To 1)
    ReDim D(1 To 1)
    Range("B94:B116,E94:E116").ClearContents
    For i = 59 To 81
        If Join(Array(Cells(i, 4), Cells(i, 5), Cells(i, 6), Cells(i, 7), Cells(i, 9))) _
        Like "[4,5] [4,5] [4,5] [4,5] М" Then
            ReDim Preserve M(1 To UBound(M) + 1)
            M(UBound(M) - 1) = Cells(i, 2).Value
        End If
        If CDbl(Cells(i, 8).Value) < 4 And Cells(i, 9).Value = "Ж" Then
            ReDim Preserve D(1 To UBound(D) + 1)
            D(UBound(D) - 1) = Cells(i, 2).Value
        End If
    Next i
    If UBound(M) <> 1 Then
        ReDim Preserve M(1 To UBound(M) - 1)
        Range("B94:B" & UBound(M) + 93).Value = Application.Transpose(M)
      Else
        Range("B117").Value = "Нет отличников"
    End If
    If UBound(D) <> 1 Then
        ReDim Preserve D(1 To UBound(D) - 1)
        Range("E94:E" & UBound(D) + 93).Value = Application.Transpose(D)
      Else
        Range("E117").Value = "Нет девочек-троечниц"
    End If
End Sub

Sub test()
    Dim i As Integer
    Dim tm As Integer, td As Integer
    tm = 93
    td = 93
    Range("B94:B116,E94:E116").ClearContents
    For i = 59 To 81
        If Join(Array(Cells(i, 4), Cells(i, 5), Cells(i, 6), Cells(i, 7), Cells(i, 9))) _
        Like "[4,5] [4,5] [4,5] [4,5] М" Then
            tm = tm + 1
            Cells(tm, 2).Value = Cells(i, 2).Value
        End If
        If CDbl(Cells(i, 8).Value) < 4 And Cells(i, 9).Value = "Ж" Then
            td = td + 1
            Cells(td, 5).Value = Cells(i, 2).Value
        End If
    Next i
    If tm = 93 Then Range("B117").Value = "Нет отличников"
    If td = 93 Then Range("E117").Value = "Нет девочек-троечниц"
End Sub