copaiare intera riga se cella in altro foglio hanno stesso valore

Option Explicit
Sub copia()
Dim ur, x, r, rg As Object, Area As Range
ur = Sheets("Foglio1").Range("F" & Rows.Count).End(xlUp).Row
    For x = ur To 3 Step -1
        Set rg = Sheets("Banco").Columns("C:C").Find(Sheets("Foglio1").Cells(x, 6), LookIn:=xlValues, LookAt:=xlWhole)
        If Not rg Is Nothing Then
             r = rg.Row
             Sheets("Foglio1").Rows(x & ":" & x).Copy
             Sheets("Banco").Rows(r + 1 & ":" & r + 1).Insert Shift:=xlDown
        End If
    Next
Set rg = Nothing
MsgBox "fatto"
End Sub