شمارش مقادیر بزرگتر از صفر

Sub compute()
     Dim cont As Integer
     Dim start As Integer
    start = 9
    For j = 2 To 8400
        cont = 0
             For i = start To start + 7
                 
                 If Sheets("A").Cells(i, j) > 0 Then
                 cont = cont + 1
                 End If
                 
            Next i
                       Sheets("B").Cells(2, j) = cont
     Next j
End Sub