Visual Basic - Trabajar una string Como si fuera una formula

Hola tengo que poner una formula en C3, ya tengo la formula el problema es que es una string y al compialar siempre me sale ~######, alo mejor estoy declarandola mal.

gracias

Sub Macro1()

Application.ScreenUpdating = False

Dim ult1 As Integer
Dim ult2 As Integer
Dim consulta As String
ult1 = Range("a65536").End(xlUp).Row
ult2 = Range("b65536").End(xlUp).Row
If ult1 < ult2 Then
ult1 = ult2
End If

Range("c1").Select

i = 1
Do While i < ult1 + 1
consulta = "=CONTAR.SI(A" & i & ":A" & ult1 & ";A" & i & ")>1"
ActiveCell.Formula = consulta
'ActiveCell.FormulaR1C1 = consulta

ActiveCell.Offset(1, 0).Select
i = i + 1

Loop
Application.ScreenUpdating = True
End Sub

Tabla de ejemplo

Luis 45
memo 45
Maria 45
Alberto 21
memo 211
Juan
lusia 54
454
Maria 1455