For eksperterne i Excel

Hejsa,

Ved ikke med sikkerhed om det er noget i den her retning du har brug for, men om ikke andet er det måske lit til en start?

Sub Varenumre()

    Dim RK As Long
    Dim RK1 As Long
    Dim NyVa As String
    RK = 2
    RK1 = 2
    Do
    Windows("Række med nye numre").Activate
    NyVa = Cells(RK1, 1)
    Do
    Windows("Eksisterende varer").Activate
    If Cells(RK, 6) = NyVa And Cells(RK, 8) = "" Then
    Cells(RK, 6).Select
    Selection.Interior.ColorIndex = 20
    End If
    If Cells(RK, 6) = NyVa And Cells(RK, 8) <> "" Then
    Cells(RK, 8).Select
    Selection.Interior.ColorIndex = 20
    End If
    If Cells(RK, 7) = NyVa And Cells(RK, 8) = "" Then
    Cells(RK, 7).Select
    Selection.Interior.ColorIndex = 20
    RK = RK + 1
    End If
    If Cells(RK, 7) = NyVa And Cells(RK, 8) <> "" Then
    Cells(RK, 8).Select
    Selection.Interior.ColorIndex = 20
    RK = RK + 1
    Else
    RK = RK + 1
    End If
    Loop Until Cells(RK, 6) = ""
    RK = 2
    Windows("Række med nye numre").Activate
    RK1 = RK1 + 1
    Loop Until Cells(RK1, 1) = ""
End Sub

=HVIS(LOPSLAG(A1;'Ark2'!F1:G21;2;FALSK)<>"";LOPSLAG(A1;'Ark2'!F1:G21;2;FALSK);LOPSLAG(A1;'Ark2'!F1:G21;1;FALSK))