Zwei Spalten vergleichen und wenn nicht gleich dann nach unten verschieben

Hallo,
ich habe hier schon viele gute Infos im Forum gefunden, aber zu meinem Anliegen finde keine passende Lösung. (bitte nicht steinigen)
Da ich in Basic ein abzoluter Frischling bin, wende ich mich nun an euch.

Mein Anliegen:

Ich habe eine Tabelle (.xls) in der ich 5 Spalten habe (A-G)
Nun habe ich aus 2 unterschiedlichen Quellen Artikelnummern, welche ich vergleichen muss. In Spalte B stehen jedoch mehr Art.Nr. als in Spalte F und in Spalte G steht die Bezeichnung.
Wie bekomme ich es hin, dass er bei ungleichen Zahlen immer F und G nach unten verschiebt?

Beispiel:

0	B	F	G
1	Art.Nr	Art.Nr	Bezeichnung
2	1	1	Nagel
3	2	3	Hammer
4	3	4	Dübel
5	4	5	Schraube
6	5

Wenn B2 nicht die gleiche Zahl hat wie F2, dann verschiebe Zelle F2 und G2 nach unten und gehe zur nächsten Zeile.

Ich hoffe ihr versteht was ich geschrieben habe und danke euch für die Mühe mir zu helfen.

Rabbit81

Sub CompareAndMove()
    Dim cell As Range
    Application.CutCopyMode = False
    With ActiveSheet
        For Each cell In .Range("B2:B" & .Cells(Rows.Count, "B").End(xlUp).Row)  
            If cell.Value <> cell.Offset(0, 4).Value and cell.Offset(0, 4).Value <> "" Then  
                cell.Offset(0, 4).Resize(1, 2).Insert xlShiftDown
            End If
        Next
    End With
End Sub