Zwei Datenlisten in Excel VBA abgleichen und in ein neues Blatt exportieren

Question

Ich erhalte monatlich eine Exceldatei und muss Teile davon in eine neue Datei exportieren. Ich habe eine Liste von Identifikationsnummern und versuche, die Liste der Nummern in der ausgewählten Liste mit der vollständigen Datei abzugleichen und dann die Zeilen mit den relevanten Daten in ein neues Blatt zu exportieren.

Sub Run_All_Macros()
Application.ScreenUpdating = False
Sheets.Add.Name = "Output"
Call Convert_to_Numbers
Call Highlight_Selected_Contractors
End Sub

'Original Spreadsheet is formatted incorrectly
'Convert PSD Codes to Numbers
Sub Convert_to_Numbers()
Dim xCell As Range
Range("A2:A2500").Select
    For Each xCell In Selection
    xCell.Value = CDec(xCell.Value)
    Next xCell
End Sub

'Highlight Selected Contractors
Sub Highlight_Selected_Contractors()
Dim Full, Selection, Code, SelectedCode As Range
Worksheets("Sheet1").Select
'Set all cells in Column A Sheet 1 to Full
Set Full = Worksheets("Sheet1").Range("A1", Range("A1").End(xlDown))
'Set all cells in Column A Sheet 2 to Selection
Worksheets("Sheet2").Select
Set Selection = Worksheets("Sheet2").Range("A1", Range("A1").End(xlDown))
'If the numbers match highlight the cell
For Each Code In Full
    For Each SelectedCode In Selection
        If Code.Value = SelectedCode.Value Then
       *** Code.Select
        Selection.Copy
        Sheets.Select ("Output")
        ActiveSheet.Paste
    End If
Next SelectedCode
Next Code
End Sub

Nach der Ausführung dieses Codes wird Spalte A in "Output" mit Nullen von A2:A2500 gefüllt. Beim Herumspielen mit Haltepunkten habe ich festgestellt, dass das Problem an der Stelle liegt, an der ich * aber ich bin mir nicht sicher, was an dem, was dort steht, falsch ist.

Gracias