Kommt dir dieser Zusammenhang nicht auch etwas absurd vor? 

Durch die uni und selbstgeschriebenes/gelesenes Zeug bin ich noch lange kein Experte. Mein Code könnte noch sehr viel optimierungspotential vertragen. Zumal ich nichts Richtung Informatik studiert habe.

Wer prüft eigentlich ob du an dem Makro nicht irgendeinen Schaden fabrizierst? 

Das Makro habe ich komplett selbst geschrieben. Außer mir wird es keiner nutzen. Und wenn es nicht funktiert, dann muss ich es per Hand stundenlang lösen:)

Was auch immer du gesucht/gestöbert hast, es hat offensichtlich nicht s mit der angestrbten Lösung zu tun. denn das was du suchst ist eines der häufigsten Probleme in dem Bereich. Somit auch eines der am häufigst gelösten Probleme. 

1. das Ermitteln der ersten freien Zelle am Ende des Bereiches (Überschriftenspalte)

2. Die Suche nach einem Wert in einen Zellbereich(Überschriftenspalte)

3. Die Einsortierung der Werte zu den passenden Überschriften  

Normalerweiße werden lösungen für Zeilenprobleme in sämtlichen Foren angeboten. Ich selbst habe versucht es in einem Zwischenschritt einzubauen, aber eine For oder Do schleife versagt in dem Fall...

Hier mal ein vorschlag:

Public Sub HEAD_Erg()

    Dim Headline_Quelle, HeaZiel, HZiel, HQUelle As String
    
    Headline_Quelle = 1
    HeaZiel = 1
    
    HQUelle = Tabelle6.Cells(1, Headline_Quelle)
    HZiel = Tabelle8.Cells(1, HeaZiel)
    
    Do Until HQUelle = ""
        If HQUelle = HZiel Then
            Headline_Quelle = Headline_Quelle + 1
                    
                ElseIf HZiel = "" Then
                    HZiel = HQUelle
                    HeaZiel = 1
                    Headline_Quelle = Headline_Quelle + 1
                    
                Else
                    HeaZiel = HeaZiel + 1
        End If
    Loop
    

End Sub