VBA- Copy cells incl. Diagram and update diagram reference

[Julian91]

Good Morning,

I would like to automate an Excel file for my work, because the work steps repeat very often and it can easily lead to errors with several users.

I would like to first copy the area A1: R55 and paste below.
Ideally with 1 line spacing. This should be constantly expanded as new projects are added.
All my formulas and conditional formatting will be applied.
The reference of the diagram is unfortunately not taken over, it refers to the previously copied table.
And this is exactly my problem, because it is very difficult in many projects to change the reference always.

The table should be constantly updated, that is, the cells are copied continuously lower as new projects are added.

Unfortunately, I do not really know the macros and can not go on like this.

Now my question:
With the help of a colleague, I have already created a reasonably working macro. With the macro it is possible to copy and paste the desired area.
What I have not been able to do is to label the horizontal axis (very important as it has a formula related to the particular project) and to update the legend caption.
What would be great, would be to group the lines from 1 to 36 automatically. (of course referring to the newly inserted project)

Ideally, the whole thing should be possible with a button at the end of the sheet, which moves with down instead of a keyboard shortcut.

It would be a huge help if someone could help me here!
The Excel file including macro is attached.

Kind regards
Julian

[mjr veverka]

... With the help of a colleague, I have already created a reasonably working macro ...

... the "collective" proved itself

... What I have not been able to do is to label the horizontal axis ...

e.g.:

Please Login or Register  to view this content.

... to group the lines from 1 to 36 automatically. (of course referring to the newly inserted project)...

e.g.:

Please Login or Register  to view this content.

, where corfact is e.g.: Const corfact As Byte = 36

... Ideally ... with a button at the end of the sheet, which moves with down instead of a keyboard shortcut ...

First, e.g., add a button in cell "I45":

Please Login or Register  to view this content.

Second, corresponding changes in the main code, e.g. (invented "on the flight"):

Please Login or Register  to view this content.

In conclusion, it could look like this (interesting ... was that what it was about ?):

Please Login or Register  to view this content.