Recorrer celdas en excel

[judoka]

prueba con esta macro. Esta recorre de la fila 5 hasta la 405 y de las columnas 3 a la 14 y en la columna 15 de cada fila pone la cantidad de valores mayores que cero

Sub macrocontador()
Dim contador As Double
Dim i As Double
Dim j As Double

For i = 5 To 405
contador = 0
For j = 3 To 14
If Cells(i, j).Value > 0 Then
contador = contador + 1
End If
Next j
Cells(i, 15).Value = contador
Next i
End Sub