Veja se o resultado é o esperado:

C0le a fórmula abaixo em O8 e arraste:

=SOMARPRODUTO(--(Estatistica!$U$2:$U$100=B8);--(Estatistica!$W$2:$W$100=$O$7))

Obrigado Edson pela resposta, mas eu gostava de fezer com VBA (sem função) e tendo por base o código já iniciado.

Boa noite!!

Veja se ajuda

Option Explicit
 
Sub AleVBA_13606()
     
    Dim lastrow As Long
     
    lastrow = Cells(Rows.Count, "B").End(xlUp).Row
     
    Application.ScreenUpdating = False
     
    Range("C8:N8").Formula = "=SUMPRODUCT(--(Estatistica!$U$2:$U$100=B8),--(Estatistica!$W$2:$W$100=$O$7))"
    Range("C8:N8").AutoFill Destination:=Range("C8:N" & lastrow)
    'Caso queira converter essa formula em valores, use a linha abaixo, caso não, insira um comentário
    Range("C8:N21").Value = Range("C8:N21").Value
    Application.ScreenUpdating = True
     
End Sub

Att

Boa noite Alexandre,

Antes de mais muito obrigado pela resposta, assim resolve o problema, mas sendo que voce percebe de VBA poderia, por favor, informar se era possivel, tendo em conta a rotina enviada no meu fcheiro, obter o mesmo resultado?

Este tipo de rotina (com funções) em ficheiros com muitas linhas não a torna lenta?

Como faço para na linha "Range("C8:N8").Formula = "=SUMPRODUCT(--(Estatistica!$U$2:$U$100=B8),--(Estatistica!$W$2:$W$100=$O$7))"" substituir
$U$100 e $W$100 pela ultima linha preenchida em vez de definir um range fixo?

Obrigado.