Определить среднюю стоимость легкового автомобиля

Dim marka(1 To 13) As String
Dim hours(1 To 13) As String
Dim SizeM, NomerMax, I, K As Double
 
Private Sub add_Click()
For I = SizeM + 1 To NomerMax + 2 Step -1
  marka(I) = marka(I - 1)
  hours(I) = hours(I - 1)
Next I
marka(NomerMax + 1) = "Lada Kalina Premium"
hours(NomerMax + 1) = 113
Worksheets("Лист2").Select
Cells(1, 1) = "Марка автомобиля "
Cells(1, 2) = "Количество часов проката"
For I = 1 To SizeM + 1
 Cells(I + 1, 1) = marka(I)
 Cells(I + 1, 2) = hours(I)
Next I
For I = 1 To SizeM + 2
  If I = 1 Then
   Worksheets("Лист2").Range("A" & I).Font.FontStyle = "полужирный"
   Worksheets("Лист2").Range("A" & I).HorizontalAlignment = xlCenter
   Worksheets("Лист2").Range("B" & I).HorizontalAlignment = xlCenter
  End If
  Worksheets("Лист2").Range("A" & I).Borders.LineStyle = xlContinuous
  Worksheets("Лист2").Range("B" & I).Borders.LineStyle = xlContinuous
  If I > 1 Then Worksheets("Лист2").Range("B" & I).NumberFormat = "0"
Next I
End Sub
 
Private Sub calc_Click()
Dim maxhours As Double
maxhours = hours(1)
K = 0
Cells(SizeM + 3, 1) = "Наибольшая стоимость у:"
Cells(SizeM + 4, 1) = "Средняя стоимость:"
For I = 1 To SizeM
 If hours(I) > maxhours Then maxhours = hours(I): NomerMax = I
Next I
For I = 1 To SizeM
 z = Cells(I + 1, 2)
 K = K + z
Next I
K = K + z / 12
For I = 1 To SizeM
 If hours(I) > K Then K = hours(I): NomerMax = I
Next I
Cells(SizeM + 3, 2) = marka(NomerMax)
Cells(SizeM + 4, 2) = Str(K)
End Sub
Private Sub Cleanform_Click()
For I = 1 To 30
  Worksheets("Лист1").Range("A" & I + 14).ClearContents
  Worksheets("Лист1").Range("B" & I + 1).ClearContents
  Worksheets("Лист2").Range("A" & I).ClearContents
  Worksheets("Лист2").Range("B" & I).ClearContents
  Worksheets("Лист3").Range("A" & I).ClearContents
  Worksheets("Лист3").Range("B" & I).ClearContents
Next I
End Sub
Private Sub ExitForm_Click()
End
End Sub
Private Sub InputOutputData_Click()
SizeM = 12
For I = 1 To SizeM
  marka(I) = Worksheets("Лист1").Range("A" & I + 1).Value
  hours(I) = Val(InputBox("Введите стоимость " & marka(I), "Ввод данных"))
  Cells(I + 1, 2) = hours(I)
Next I
For I = 1 To SizeM + 1
 If I = 1 Then
   Worksheets("Лист1").Range("A" & I).Font.FontStyle = "полужирный"
   Worksheets("Лист1").Range("A" & I).HorizontalAlignment = xlCenter
   Worksheets("Лист1").Range("B" & I).Font.FontStyle = " полужирный"
   Worksheets("Лист1").Range("B" & I).HorizontalAlignment = xlCenter
 End If
Worksheets("Лист1").Range("A" & I).Borders.LineStyle = xlContinuous
Worksheets("Лист1").Range("B" & I).Borders.LineStyle = xlContinuous
If I > 1 Then Worksheets("Лист1").Range("B" & I).NumberFormat = "0"
Next I
End Sub
Private Sub sort_Click()
Dim j As Integer
Dim TempG As String
Dim TempN As Single
Dim tmp As Double
 
Worksheets("Лист3").Select
Cells(1, 1) = "Марка автомобиля "
Cells(1, 2) = "Стоимость"
'For I = 1 To SizeM
  'For j = I + 1 To SizeM + 1
   ' If marka(I) > marka(j) Then
    ' TempG = marka(I): TempN = hours(I)
    ' marka(I) = marka(j): hours(I) = hours(j)
    ' marka(j) = TempG: hours(j) = TempN
    'End If
 ' Next j
' Next I
For I = 1 To SizeM + 1
Cells(I + 1, 1) = marka(I)
Cells(I + 1, 2) = hours(I)
Next I
Range("B2:B14").Select
    Range("A1:B14").sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Sheets("Лист3").Select
For I = 1 To SizeM + 2
If I = 1 Then
Worksheets("Лист3").Range("A" & I).Font.FontStyle = "полужирный"
Worksheets("Лист3").Range("A" & I).HorizontalAlignment = xlCenter
Worksheets("Лист3").Range("B" & I).HorizontalAlignment = xlCenter
End If
Worksheets("Лист3").Range("A" & I).Borders.LineStyle = xlContinuous
Worksheets("Лист3").Range("B" & I).Borders.LineStyle = xlContinuous
If I > 1 Then Worksheets("Лист3").Range("B" & I).NumberFormat = "0"
Next I
End Sub

   Dim AvgCost As Double
   Dim SumCost As Double
   
   For i = 1 To SizeM
      SumCost = SumCost + hours(i)
   Next i
   
   AvgCost = SumCost / i

For I = 1 To SizeM
 z = Cells(I + 1, 2)
 K = K + z
Next I
K = K + z / 12
For I = 1 To SizeM
 If hours(I) > K Then K = hours(I): NomerMax = I
Next I
Cells(SizeM + 3, 2) = marka(NomerMax)
Cells(SizeM + 4, 2) = Str(K)