Excel Spalten vergleichen und sortieren - VBA?

Hallo liebe VBA Profis,

Ich muss innerhalb eines Excel-Sheets Spalten vergleichen und sortieren. Das ganze gestaltet sich folgendermassen:

Spalte A-C enthält jeweils Artikelnummer, Artikelbezeichnung, neuer Preis.

Spalte D-F enthält jeweils Artikelnummer, Artikelbezeichnung, ALTER PREIS.

Das Problem ist, dass die Positionierung der Artikel von Spalte A-C nicht dieselbe ist wie in Spalte D-F.

Nun muss Spalte D-F genauso sortiert werden in Bezug auf Artikelnummer und Artikelbezeichnung wie die Spalten A-C und Spalte F soll natürlich weiterhin den alten Preis enthalten zu dem richtigen Produkt.

Als Beispiel:

Artikelnummer: 123
Artikelbezeichnung: Tasse
ALTER PREIS: 5.-

Der Preis über 5.- Euro soll natürlich nach der Sortierung weiterhin bei der Tasse stehen und nicht etwa beim Teller.

Spalten A-C dürfen auf gar keinen Fall geändert werden.

Die Artikelnummern sind dieselben in A-C und D-F, mit wenigen Ausnahmen, die es in A-C entweder nicht mehr oder neu dazu gibt.
In diesen Fällen soll Spalten D-F wie folgt geändert werden:
- Produkt gibt es nicht in A-C: Das Produkt in D-F löschen, und zwar die Zellen nicht die ganze Zeile und die Zellen darunter sollen nach oben geschoben werden.
- Produkt gibt es nicht in D-F: Das Produkt in D-F einfügen durch einfügen von Zellen nicht die ganze Zeile und die darunter liegenden Zellen sollen nach unten geschoben werden.

Im Dokument sind maximal ungefähr 2000 Zeilen.

Nun habe ich leider keinerlei Kenntnisse in Visual Basic und müsste aber ein solches Makro erstellen, was doch eigentlich gehen müsste?

Kann mir vielleicht jemand von euch da weiterhelfen?

Vielen Dank

Option Explicit

Private Const SheetName = "Tabelle1"        'Tabellenname entsprechend anpassen  
Private Const StartZeile = 2                'Artikelnummer ab Zeile ?  

Sub SortToArtikelNr()
    Dim Found As Range, i As Long
    
    With Sheets(SheetName)
        For i = StartZeile To .Cells(.Rows.Count, "A").End(xlUp).Row  
            Set Found = .Columns("D").Find(.Cells(i, "A").Value, LookIn:=xlValues, LookAt:=xlWhole)  
            
            If Not Found Is Nothing Then
                Found.Resize(1, 3).Copy .Cells(i, "G")  
            End If
        Next
    
       .Columns("D:F").Delete  
    End With
End Sub