Ecrire le resulat d'une macro

Bonjour,

Pouvez vous m'expliquer comment afficher le résultat de cette macro dans une cellule précise "H36" pour pouvoir l'utiliser par la suite pour réaliser une division

Le débogage me donne une erreur sur la ligne en gras.

Merci d'avance

Sub CountCellvide()

numBlanks = 0
For Each c In Selection
If c.Value = "0" Then
numBlanks = numBlanks + 1
End If
Next c
Range("H36").Select

ActiveCell.FormulaR1C1 = "= & numBlanks & "

End Sub