VBA Application.WorksheetFunction.Median

Sub Median()
Dim A As Date
Dim Row1, Row2, RowMax    As Integer
Dim Col1, Col2            As Integer
Dim sum, Med, MW          As Double
Dim i, j                  As Integer      'i=Jahr , j=Monat
Dim ArrTxt                As Variant
Dim MyArray(1 To 300, 1 To 100) As Variant
Dim wks1                  As Worksheet
Set wks1 = ActiveSheet
RowMax = wks1.UsedRange.SpecialCells(xlCellTypeLastCell).Row
For Row1 = 2 To RowMax + 1
If Month(DateValue(Cells(Row1, 1))) = 1 Or Month(DateValue(Cells(Row1, 1))) = 3 Or Month( _
DateValue(Cells(Row1, 1))) = 5 Or Month(DateValue(Cells(Row1, 1))) = 7 Or Month(DateValue(Cells(Row1, 1))) = 8 Or Month(DateValue(Cells(Row1, 1))) = 10 Or Month(DateValue(Cells(Row1, 1))) = 12 Then
MW = Application.WorksheetFunction.Average("B" & Row1 & ":B" & Row1 + 30)
Med = Application.WorksheetFunction.Median("B" & Row1 & ":B" & Row1 + 30)
Row1 = Row1 + 31
End If
Next Row1
End Sub