Macro contar celdas. Error 1004

Hola Dam.

Me proporcionaste esta Macro que va perfecta y que cuenta todas las celdas con datos que hay en la columna H, desde la celda H10 y pega el resultado en la celda B1.

Sub contarh()
'por.dam
For i = 10 To ActiveCell.SpecialCells(xlLastCell).Row
If Cells(i, "H") <> "" Then
cont = cont + 1
End If
Next
Range("B1") = cont
End Sub

La tuve que modificar para que contara desde I6 y me pegara en I5.

For i = 6 To ActiveCell.SpecialCells(xlLastCell).Row
If Cells(i, "I") <> "" Then
cont = cont + 1
End If
Next
Range("I5") = cont

El problema que me surje es que al ejecutarla con la hoja protegida, aunque todas las celdas desde I5 para abajo están desprotegidas me de error 1004 y me pide desproteger la hoja.

Sé que puedo usar ActiveSheet. Unprotect. Pero, ¿hay alguna otra forma de que se ejecute la macro sin tener que desproteger la hoja?

Muchas gracias por tu tiempo.