Составить список наиболее популярных за последний месяц автомобилей

Private Sub UserForm_Initialize()
    Dim MRes As Integer, YRes As Integer
    
    MRes = Month(Date)  'Месяц отчета. Для примера взят текущий.
    YRes = Year(Date)   'Год отчета. Для примера взят текущий.
    
    
    Dim Mas(), MasSp(), Res() As String
    Dim i As Integer, j As Integer, temp As Integer
    Dim FDate As Date, LDate As Date, TStr As String, ResStr As String
    FDate = DateSerial(YRes, MRes, 1)
    LDate = DateSerial(YRes, MRes, DateDiff("d", FDate, DateAdd("m", 1, FDate)))
    
    'Заносим данные с листа прокат в массив Mas
    Mas = Sheets(2).Range("A2:C" & Sheets(2).Cells(Sheets(2).Rows.Count, 1).End(xlUp).Row).Value
    
    'Составляем массив MasSp - список машин и дни проката в месяце отчета.
    ReDim MasSp(1, 0)
    For i = LBound(Mas, 1) To UBound(Mas, 1)
        temp = Mas(i, 3)
        If Mas(i, 1) <= LDate Then
            If Mas(i, 1) < FDate Then temp = temp - DateDiff("d", Mas(i, 1), FDate)
            If temp > 0 Then
                If temp > Day(LDate) Then temp = Day(LDate)
                For j = 0 To LBound(MasSp, 2)
                    If MasSp(0, j) = Mas(i, 2) Then
                        MasSp(1, j) = MasSp(1, j) + temp
                        temp = 0
                        Exit For
                    End If
                Next j
                If temp > 0 Then
                    MasSp(0, UBound(MasSp, 2)) = Mas(i, 2)
                    MasSp(1, UBound(MasSp, 2)) = temp
                    ReDim Preserve MasSp(1, UBound(MasSp, 2) + 1)
                End If
            End If
        End If
    Next i
    If UBound(MasSp, 2) = 0 Then Exit Sub
    ReDim Preserve MasSp(1, UBound(MasSp, 2) - 1)
    
    'Ищем 4 наиболее популярные машины и заносим их в ListBox1
    Do
        temp = 0
        TStr = ""
        For i = 0 To UBound(MasSp, 2)
            If MasSp(1, i) = temp Then TStr = TStr & " " & i
            If MasSp(1, i) > temp Then
                temp = MasSp(1, i)
                TStr = i
            End If
        Next i
        Res = Split(TStr)
        For i = 0 To UBound(Res)
            ListBox1.AddItem
            ListBox1.List(ListBox1.ListCount - 1, 0) = MasSp(0, Res(i))
            ListBox1.List(ListBox1.ListCount - 1, 1) = MasSp(1, Res(i))
            MasSp(1, Res(i)) = 0
        Next i
    Loop Until ListBox1.ListCount >= 4 Or ListBox1.ListCount = UBound(MasSp, 2) + 1
End Sub