Gerne würde ich in einer Mappe das neu generierte Blatt behalten und den Rest löschen.
Unten habe ich ein Code der leider so ist das es die Rechnung 1 beibehält und die Rechnung 2 löscht. In meinem Fall müsste es Rechnung 1 löschen und Rechnung 2 behalten also immer das neu generierte behalten.
Sub ErstesBlattLassen()
Application.DisplayAlerts = False
While Worksheets.Count > 1
Worksheets(2).Delete
Wend
Application.DisplayAlerts = True
End Sub