Compare two collums with nine numbers.

Does this help?

Sub blake20()
Dim i As Long, x As Worksheet, y, z As Range
Set x = Sheets("Rest")
ReDim y(2 To Range("A" & Rows.Count).End(3).row)
For i = LBound(y) To UBound(y)
    Set z = Columns(2).Find(Cells(i, "A"), LookIn:=xlValues, Lookat:=xlWhole)
        If z Is Nothing Then
            Cells(i, "A").Copy x.Cells(Rows.Count, "A").End(3)(2)
        End If
    Set z = Nothing
Next i
End Sub