¿Cómo escribir la siguiente función countif en VBA?

Reemplace la tabla con variables. Por ejemplo, X1 representa 333934165770. Escriba la fórmula en la celda A1:

Rango("A1").Formula = "=CONTAR.SI('" amp. ; x1 amp; "'!D: D, ¡consulta! C: C) CONTAR.SI (…………"

La parte de puntos suspensivos se trata de la misma manera que el número de tabla X1, la última comilla.