Wie wäre es hiermit

Sub Hauptprogramm()

Dim AnzahlZeilen As Integer
Dim ZeilenTab1  As Integer
Dim Zaehler_1 As Integer


ZeilenTab1 = ActiveWorkbook.Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row           'Zeilen zählen
AnzahlZeilen = 1                                                                            'Anzahl der Zeilen, die vor "Autoteile XYZ"
                                                                                            'eingefügt werden sollen

'Schleife zum Durchsuchen der Spalte A nach "Autoteile XYZ"
For Zaehler_1 = ZeilenTab1 To 1 Step -1                                                     'Beginnen bei letzter Zeile des Tabellenblatts
    
    If InStr(1, Worksheets("Tabelle1").Cells(Zaehler_1, 1).Value, "Autoteile") >= 1 Then    'Abfrage auf "Autoteile" in aktueller Zelle
    
        Call ZeileEinfuegen(Zaehler_1, AnzahlZeilen)                                        'Wenn "Autoteile" in String gefunden, dann Funktion zum Zeilen
                                                                                            'einfügen aufrufen und Parameter übergeben
    End If

Next Zaehler_1

End Sub

und dann diese Funktion als modul erstellen

Function ZeileEinfuegen(ZeileStart As Integer, AnzZeilen As Integer)

Dim Zaehler As Integer

For Zaehler = ZeileStart To ZeileStart + AnzZeilen - 1

    ActiveWorkbook.Sheets("Tabelle1").Cells(Zaehler, 1).EntireRow.Insert

Next Zaehler

End Function

Natürlich muss u.U. der Tabellenname noch angepasst werden.

Sollte es bei der Umsetzung Probleme geben bitte ganze Sätze schreiben.

Und die Auffälligkeiten schildern. Danke im Voraus

Ich habe es bei mit getestet und es hat funktioniert.
 

Gruß
Andreas