Macro VBA

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