A parte il fatto che non esiste nessun numero uguale, hai notato che Foglio1 ha 14 colonne, Banco ha 15 colonne e tutte le intestazioni non corrispondono?
Comunque questo è solo un esempio che non RICOPIA la riga, mà aggiunge subito sotto se lo trova, se metti a posto un domani togli il +1 a ...(r + 1 & ":" & r + 1)
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