Office: (Office 2016) VBA Zeile "duplizieren" und Tabelle erweitern

Hallo Forum,

ich habe eine Idee bezüglich einer Liste die Wochenendaktivitäten speichert. Die Tage Samstag und Sonntag werden rot markiert, durch Ausblendung wird immer nur der jeweilige Monat angezeigt, die Formeln funktionieren und die Daten passen für alle Monate/Jahre :)

Nun wollte ich per VBA eine Funktion erstellen, die eine zeile "dupliziert" und unter den Punkt einfügt.

Code:

Code:

Sub MachNeKopie()
    With Selection.Cells(1, 1).EntireRow
        .Copy
        .Offset(1).PasteSpecial Paste:=xlPasteValues
    End With
    Application.CutCopyMode = False
End Sub

Beispiel: 05.03.2016 habe ich zwei "Erlebnisse" und möchte deshalb diesen eintrag duplizieren. Ich klicke in die Zeile,
führe den Code aus und unter der Zeile wird ein Duplikat erstellt. Das funktioniert auch soweit genau wie ich mir das gewünscht habe.
Jedoch zwei Probleme:
1. Wie erweitre ich die Tabelle (Formate beibehalten,also Linien etc.)
2. Wenn ich die duplizierte Zeile dann lösche, funktionieren die Bezüge nicht mehr

Wie kann ich die Tabelle automatisch erweitern bzw. beim löschen eines Duplikats wieder zurücksetzen?

Liebe Grüße

Fuurious

Den Anhang Wochenendmappe.xlsm betrachten