Macro VBA

Sub duplicaRighe()
Dim Sh1 As Worksheet, Sh2 As Worksheet, Sh3 As Worksheet
Set Sh1 = Worksheets("Foglio1")
Set Sh2 = Worksheets("Foglio2")
Set Sh3 = Worksheets("Risultato")
Ur1 = Sh1.Range("A" & Rows.Count).End(xlUp).Row
ur2 = Sh2.Range("A" & Rows.Count).End(xlUp).Row
Sh3.Range("A2:H" & Rows.Count).ClearContents
r1 = 2
r2 = 2
r3 = 2
For j1 = r1 To Ur1
    codice = Sh1.Cells(j1, 1)
    Sh1.Range("A" & j1 & ":H" & j1).Copy Sh3.Range("A" & r3)
    r3 = r3 + 1
    For j2 = r2 To ur2
        If Sh2.Cells(j2, 1) = codice Then
            Sh1.Range("A" & j1 & ":G" & j1).Copy Sh3.Range("A" & r3)
            Sh3.Cells(r3, 8) = Sh2.Cells(j2, 7)
            r3 = r3 + 1
        End If
    Next j2
Next j1
End Sub