Ciao Maria
Spero che tu non abbia abbandonato la discussione
Prova ad eseguire questa macro e dimmi se per te va bene.
vb
Sub CopiaMaria()
Dim i As Long
Dim ur As Long
Dim lr As Long
Dim nVolte As Long
Dim rng As Range
Dim cel As Range
ur = Sheets("Foglio1").Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Sheets("Foglio1").Range("A2:A" & ur)
Application.ScreenUpdating = False
For Each cel In rng
nVolte = Application.WorksheetFunction.CountIf(Sheets("Foglio2").Range("a2:a51"), cel.Value)
For i = 1 To nVolte + 1
lr = Sheets("Risultato").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Foglio1").Activate
Range(Cells(cel.Row, "A"), Cells(cel.Row, "H")).Copy Destination:=Sheets("Risultato").Cells(lr + 1, "A")
Next i
Next cel
Sheets("prova").Activate
Application.ScreenUpdating = True
End Sub
Attenzione: cambia il nome del secondo foglio da "Foglio 2" a "Foglio2"
Alfredo