Al ejecutar contador me sale error 1004 y al dar depurar me marca la lineadato = ho1.Range ("B" & i)

Elsa; acertada y muy puntual con tu ayuda.

Ya hice lo que me recomendaste, igual sigo trabajando en un ejemplo, la cantidad final por cada hoja la trabajo al final cuando me quede claro, por los ajustes que hice quedo así:f

Sub botonHoja()
' Acceso directo: CTRL+k
'calcula con Mayusc+F9, solo en hoja activa
Application.SendKeys "+{F9}"
'limpia el contador

'en hoja Contador se acumulan según las 20 preguntas que resultan en hoja Cuestionario
'se establece en qué rango de filas se estará actualizando Cuestionario

If ActiveSheet.Name = "Generales" Then 'AJUSTAR RANGOS DE CADA HOJA
ini = 2: fini = 10
ElseIf ActiveSheet.Name = "Especificas 1" Then
ini = 2: fini = 10
ElseIf ActiveSheet.Name = "Especificas 2" Then
ini = 2: fini = 12
End If
'se actualizan las 2 hojas involucradas
ActiveSheet.Calculate
Sheets("Cuestionario").Select
ActiveSheet.Calculate

'se incrementa la hoja Contador con las 10 primeras preguntas de la hoja ejecutada
Set ho1 = Sheets("Cuestionario")
'recorre el rango de hoja Cuestionario ---- AJUSTAR RANGO DE BÚSQUEDA
For i = ini To fini
dato = ho1.Range("B" & i)
On Error Resume Next
Set busco = ho2.Range("A2:A45").Find(dato, LookIn:=xlValues, lookat:=xlWhole)
If Not busco Is Nothing Then
ho2.Range("B" & busco.Row) = ho2.Range("B" & busco.Row) + 1
End If
Next i
MsgBox "Totalizado"
End Sub

pero al ejecutar el contador me sale error 1004 y al dar depurar me marca la linea

dato = ho1.Range ("B" & i)

Espero tus sugerencias; reitero mi agradecimiento