помогите с Excel

Function КолвоЧетныхВНечетныхСтолбцах(КолвоСтолбцов As Integer, ВысотаСтолбца As Integer) As Integer
'предполагается, что вкладка с данными активна
'предполагается, что данные начинаются с позиции (1,1)

    КолвоЧетныхВНечетныхСтолбцах = 0
   
    Dim номерСтолбца As Integer
    Dim номерСтроки As Integer
   
    номерСтолбца = 1
   
    Do While номерСтолбца <= КолвоСтолбцов
       
        For номерСтроки = 1 To ВысотаСтолбца
            'MsgBox Application.ActiveSheet.Cells(номерСтроки, номерСтолбца)
            If Application.ActiveSheet.Cells(номерСтолбца, номерСтроки) Mod 2 = 0 Then
                КолвоЧетныхВНечетныхСтолбцах = КолвоЧетныхВНечетныхСтолбцах + 1
            End If
        Next номерСтроки
       
        номерСтолбца = номерСтолбца + 2
    Loop
   

End Function