Calcular no VBA

Boa Noite Povo!!!


Imaginem o seguinte cenario.



A1: F1 01 02 05 08 10 16



A2:F2 02 05 08 15 18 20



Preciso saber qtos numeros na linha2 repetem na linha1

Com formulas uso esta = soma(cont.se(A2:F2;A1:F1)) finalizo com Ctrl+Shift+Enter



E neste exemplo tenho o resultado 3

Preciso fazer a mesma coisa com VBA.

Tenho o seguinte codigo:



Sub Teste()

Dim Matriz1 As Variant
Dim Matriz2 As Variant
Dim Soma As Integer

Matriz1 = Planilha1.Range("A1:F1")
Matriz2 = Planilha1.Range("A2:F2")

'Soma Deve retornar 3

End Sub

A pergunta é como ter na variavel Soma o valor 3 somente no VBA.


Alguem tem alguma ideia de como resolver essa demanda?

Aguardo!!


Editei o post pq parte do problema ja resolvi.