00 28/07/2017 17:25
Ciao
questa è basata sull'esempio che hai allegato e copia solo le col A,B,C in quanto il resto non saprei dove inserirlo.

saluti 

Sub AggiungiCodici()
Dim shFrom As Worksheet, shTo As Worksheet, urF As Long, urT As Long, r As Long
Dim c As Object, mCod As String
Set shFrom = Worksheets("Change report")
Set shTo = Worksheets("Input")
urF = shFrom.Range("A" & Rows.Count).End(xlUp).Row
urT = shTo.Range("A" & Rows.Count).End(xlUp).Row + 1
For r = 2 To urF
    mCod = shFrom.Cells(r, 1)
    With shTo.Range("A:A")
        Set c = .Find(mCod, LookIn:=xlValues, lookat:=xlWhole)
        If c Is Nothing Then
            shFrom.Range("A" & r & ":C" & r).Copy shTo.Cells(urT, 1)
            urT = urT + 1
        End If
    End With
Next r
Set shFrom = Nothing
Set shTo = Nothing
Set c = Nothing
End Sub




[Modificato da dodo47 28/07/2017 17:26]
Domenico
Win 10 - Excel 2016