trova e copia celle uguali in due colonne

Buongiorno a tutti,

questo è uno dei miei primi tentativi di sviluppo. So che siamo a livelli base anche meno, ma per ora riesco a fare solo questo, che peraltro non funziona.
L'intenzione è trovare celle uguali in due colonne e copiare il contenuto su un'altra colonna.

Sub match()

Dim riga_A As String
Dim riga_P As String
Dim i, a As Integer
Dim piu As Long
piu = 1

For i = 1 To i = 110
riga_A = Cells(i, "A")
For a = 1 To a = 52
riga_P = Cells(a, "P")
If riga_A = riga_B Then
Cells(piu, "Q") = Cells(a, "P")
piu = piu + 1
End If
Next a
Next i
End Sub

la sub lavora sul secondo foglio del file che allego

Cosa sbaglio?

grazie come sempre per il vostro prezioso supporto.

Ciao
in tutta sincerità non ho capito cosa vuoi fare. Prova a correggere la tua macro come appresso:


Ciao,
Mario