Der Code funktioniert natürlich nicht. Hier der aktualisierte Code, der auch funktioniert:

Option Explicit

Sub sss()

Dim suchArray(0 To 8) As String
Dim e, f As Long
Dim z As Variant
Dim w, x, y As Long
Dim Zeilenanzahl As Long
Dim a As Long
Dim zaehler As Long
Dim objArrLst As Object


Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
x = 1
e = 0
f = 0
'Schleife für max Zeilen
While x <= Zeilenanzahl
Set objArrLst = CreateObject("System.collections.arraylist")
    'Zaehlvariablen zurücksetzen
    zaehler = 0 'Zaehler kann maximal 2 sein
    w = x
    'Befüllen des Arrays mit neun Werten
    For y = 0 To 8
    'Speichern des Wertes in Spalte E#
        
        suchArray(y) = Cells(w, 5).Value
        w = w + 1
    Next y
    z = Cells(w, 5)

    'Durchsuchen nach doppelten Werten
    For a = 0 To UBound(suchArray)
      If objArrLst.Contains(suchArray(a)) = False Then
         objArrLst.Add suchArray(a)
        Else
            zaehler = zaehler + 1
      End If
    Next
    
    'Einfügen der neuen Zeilen innerhalb des Arrays
    If zaehler = 2 Then
        e = e + 1
           'zwei Zeilen einfügen mit Inhalte Spalte A und B von Zelle drüber
            'Spalte C und E ein bestimmter String pro Zeile (bsp zeile1 und zeile 2)
            'Spalte D und F 0
    ElseIf zaehler = 1 Then

        f = f + 1
        'nur eine Zeile einfügen (zeile1) wie oben
    End If
    
    '#nächster Block
    x = x + 9
    Set objArrLst = Nothing
    Erase suchArray
Wend
MsgBox e
MsgBox f
End Sub

Ich habe auch ein wenig herum experimentiert, allerdings ohne Erfolg. Für einen Link mit hilfreichen Erklärungen zu meiner Problemstellung wäre ich ebenfalls dankbar.