Hilfe neues Quartal/Spalte in VBA

Ich habe folgendes Problem ich möchte in meiner Beispieldatei ein neues Quartal per  _
Buttonklick hinzufügen.
das Makro müsste also folgendes können:
1. die letzte Spalte ermitteln (Vorquartal) um zu wissen wo das neue Quartal hinzugefügt  _
werden soll
2. neue Spalte einfügen
2. nur Formeln (mit entsprechender Formatierung) sollen übernommen bzw. weitergezogen werden(  _
nice to have : zum Jahresende 31.12 können sich die Formeln unterscheiden somit die Formel aus dem Vorjahr nehmen)
3. Werte sollen nicht übernommen werden, da diese monatlich ermittelt werden und nachgetragen  _
werden.
Ich muss im Moment jede einzelne Zeile anpassen was bei über 1000 Zeilen schon etwas dauert.
wäre super wenn mir jemand helfen könnte.
Danke euer Jonny
Link zum Beispiel
https://www.herber.de/bbs/user/113727.xlsx

Private Sub QQQ()
On Error GoTo Fehler
Dim TB, SP As Integer, LR As Double, LC As Integer
Dim EZ As Integer, LastQ As Date, RNG, OF As Integer
Set TB = Sheets("Tabelle1")
SP = 2 'Spalte B
EZ = 3 'ab Zeile
With TB
LR = .Cells(.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
LC = .Cells(EZ, .Columns.Count).End(xlToLeft).Column 'letzte Spalte einer Zeile
LastQ = .Cells(EZ, LC) 'letztes Quartalsende
Set RNG = .Range(.Cells(EZ + 1, LC + 1), .Cells(LR, LC + 1))
OF = IIf(Month(LastQ) = 9, 4, 1)
RNG.Offset(0, -OF).Copy RNG
On Error Resume Next
RNG.SpecialCells(xlCellTypeConstants, 23).ClearContents 'konstante Werte löschen
On Error GoTo Fehler
.Cells(EZ, LC + 1).Value = DateSerial(Year(LastQ), Month(LastQ) + 4, 0)
End With
'*** Fehlerbehandlung
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub

Set RNG = .Range(.Cells(EZ + 1, LC + 1), .Cells(LR, LC + 1))
OF = IIf(Month(LastQ) = 9, 4, 1)
RNG.Offset(0, -OF).Copy RNG
On Error Resume Next