Makro neue Zeilen einfügen in Excel

Hallo,

ich hoffe von euch Ihr könnt mir helfen.

Wir haben eine Excel Tabellen mit vielen Datensätzen (Zeilen).

Dort müssen wir ständig neue Zeilen einfügen für neue Datensätze.

In der Zeile sind 2 Formel hinterlegt.

Nun bin auf der suche nach einem Makro das mir die Zeilen neu einfügt, den Inhalt (Schrift Farbe usw.) löscht aber die Formel mit kopiert.

Die Anzahl der neuen Zeile variiert. 1 oder 2 oder 3 oder....

Ich habe da ein Makro gefunden das mir aber immer nur 1 Zeile einfügt und bei Zeilen mit Inhalt diesen Inhalt nicht löscht

1. Makro

Sub Zeilen_einfügen()

Application.ScreenUpdating = False

    Selection.EntireRow.Insert

    ' ACHTUNG: Das With darf nicht 1 drüber, da sich durch das Insert die Selection ändert

    With Selection.EntireRow

        .FormulaR1C1 = .Offset(-1, 0).Resize(1).FormulaR1C1

    End With

    Application.ScreenUpdating = True

End Sub

dann habe ich noch ein 2 Makro gefunden,

hier kann ich zwar mehrere Zeile markieren und dann neue Zeilen einfügen aber wieder rum das Problem, wenn ich eine beschriebene Zeile markiere wird der Inhalt nicht gelöscht

2. Makro

Sub zelleneinfügen()

'

' Zeilen_einfügen Makro

' Makro am 16.09.2010 von Privat aufgezeichnet

'

'

    If Selection.Areas.Count > 1 Then

        MsgBox ("Bitte nicht mehrere Bereiche auswählen!")

        Exit Sub

    End If

    Application.ScreenUpdating = False

    Selection.EntireRow.Insert

    ' ACHTUNG: Das With darf nicht 1 drüber, da sich durch das Insert die Selection ändert

    With Selection.EntireRow

        .Offset(-1, 0).Resize(1).Copy

        .PasteSpecial Paste:=xlPasteFormulas

        ' Wenn in der Zeile unter den eingefügten Zeilen eine Formel in

        ' Spalte B steht, dann muss die korrigiert werden

        If .Resize(1, 1).Offset(.Rows.Count, 1).HasFormula Then

            .Resize(1, 1).Offset(.Rows.Count, 1).FormulaR1C1 = _

                .Resize(1, 1).Offset(-1, 1).FormulaR1C1

        End If

    End With

    Application.ScreenUpdating = True

End Sub

und ab hier hätte ich gerne eure Hilfe

Ein Makro das das alles kann

• mehrere Zeile einfügt
• beschriebene Zeilen löscht
• aber alle Formeln kopiert

ist das irgendwie möglich

ich Danke euch

BG und noch schönes WE