Mittelwert in VBA berechnen

Sub Mittelwert_berechnen()
'x = Cells(15, i).Value
Dim Zeile As Integer
Dim h As Integer            'Zählvariable für Anzahl der Hauptpunkte
Dim addierter_Fortschritt As Integer
Dim Fortschritt As Integer
Dim Mittelwert As Integer
addierer_Fortschritt = 0        'Variablendeklaration
h = 0                        'Anzahl der Hauptpunkte
Mittelwert = 0
Fortschritt = 0
For Zeile = 15 To 30 Step 1
If Range("B" & Zeile) = "H" Then        'Zeile der aktiven Zelle mit ActiveCell.Row  _
anzeigen
Range("K" & Zeile).Value = Fortschritt          'Wert aus Zelle auslesen
addierter_Fortschritt = addierter_Fortschritt + Fortschritt
h = h + 1
Mittelwert = addierter_Fortschritt / h    'Mittelwert berechnen
End If
'Exit wenn Leerzeile
'Exit For                   'Mit Exit for kann die Zählschleife bei einem speziellen Grund   _
_
_
sofort verlassen erden
'Evtl. hilfreich für Schleifenende bei nächstem P
'ActiveCell.Row() = ""
Next
Range("S15").Value = h
Range("T15").Value = Mittelwert
End Sub