Tente desta forma:

Range("O4").Formula = "=CONT.SE(Plan2!A:A;"Casa")

Para se aplicar uma formula em uma célula utilizando-se do VBA, pode se utilizar:
.Formula -> obriga que a seja utilizado o nome da formula em ingles, e separador virgula, não ponto e virgula as aspas devem ser duplas onde houver outra:

Range("O4")formula = "=countif(Plan2!A:A,""Casa"")"

.formulalocal -->obriga que a seja utilizado o nome da formula no idioma local, no caso Portugues, , e separador conforme utilizado no local, no caso ponto e virgula; as aspas devem ser duplas onde houver outra:

Range("O4").FormulaLocal = "=CONT.SE(Plan2!A:A;""Casa"")"

ou ainda .FormulaR1C1, esta mais "chatinha" --> obriga que a seja utilizado o nome da formula em ingles, e separador virgula, não ponto e virgula; uma range ou endereço de celula deve ser informado no padrão R1C1 (linha/coluna), no seu exemplo refere-se a coluna localizada 14 posições antes da posição da formula (coluna "O"), as aspas devem ser duplas onde houver outra:

Range("O4").FormulaR1C1 = "=COUNTIF(Plan2!C[-14],""Casa"")"

Boa tarde,

Agradeço a atenção do leandromar e do Reinaldo.

Acabei conseguindo fazer com a explicação do Reinaldo. muito obrigado

Abraços