Hallo ihr Lieben
Ich benötige Eure Unterstützung bei der Vervollständigung von meinem VBA- Code.

Sub Datei_Importieren()
Worksheets("QS_Projektdaten").UsedRange.ClearContents
Dim Dateiname, Pfad
Pfad = "C:\Users\matzenbacherk\Desktop\Datenquellen Test\Archiv\"
Dateiname = Dir$(Pfad & "*.xlsx")
Workbooks.Open Pfad & Dateiname, ReadOnly:=True
ActiveWorkbook.Sheets("Sheet1").UsedRange.Copy
ThisWorkbook.Sheets("QS_Projektdaten").Cells(1, 1).PasteSpecial xlPasteValues
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Range("A1").Select
End Sub

Dieser macht mal grundsätzlich, was er soll. Meine Frage, wie kann ich den Code modifizieren, das Er erkennt/prüft ob die Daten im Tabellenblatt QS_Projektdaten schon vorhanden sind und nur die neuen Daten, welche sich nicht in dem Tabellenblatt befinden in der letzten Zeile (am ende der Daten) einfügt. Die Prüfung soll auf die Inhalte der Spalte A erfolgen "Projekt". Da die Spalte A "Projekte" die Projektnummern mehrfach darstellt (liegt an den Artikel pro Projekt) kann ggf. kann als zusätzliches Kriterium die Pos. (Nummer) in Spalte E verwendet werden. Diese sind pro Projekt immer eindeutig.

https://www.herber.de/bbs/user/171882.xlsx