keine doppelten Werte

Guten Tag zusammen,
Ich erstelle gerade ein File mit Bestellungen von 10 verschiedenen Lieferanten. Das Problem ist aber, pro versendete Bestellung und Tagesdatum darf nur jeweils 1 ganzer Datensatz in die Datenbank pro Lieferant eingetragen werden.
Im folgenden Makro habe ich es mal versucht umzusetzen, was im Moment noch nicht so richtig funktioniert. Wenn ich den Datensatz im Bestellformular nicht lösche und am nächsten Tag den Einlese Button drücke, wird der gleiche Datensatz vom Vortag nochmals eingelesen. Kann mir jemand behilflich sein?

Sub DatenAblageLieferanten()
 Dim lLNr&, lRow&, lRowIn&
 On Error GoTo ende
 
 lLNr = [A6]
  With Tabelle2
    If IsError(Application.Match(lLNr, .Range("A4:A10000"), 0)) Then
      lRowIn = .Cells(Rows.Count, "A").End(xlUp).Row + 1
      
      .Cells(lRowIn, 1).Value = lLNr
      .Cells(lRowIn, 2).Value = [A1]
      .Cells(lRowIn, 3).Value = [B1]
      .Cells(lRowIn, 4).Value = [B6]
      .Cells(lRowIn, 5).Value = [C6]
      
End Sub