Copy / Replace Pivot Into Sheet Without Adding Number Of Sheet

In a sheet (4) I have a pivot refreshed by a VBA macro code. Since I have defined a Chart on this pivot, I need to copy this pivot in a new sheet to avoid to reduce rows using a filter of the Chart. I copy this pivot using this VBA code

Sheet4.Select
Sheet4.Copy After:=Sheet2

I have e new sheet with a number Sheet(n) not equal to maximum sheet number +1

For a new run of the VBA macro I need to delete this sheet

Sheets(n).Select where (n) is not = maximum sheet number +1
ActiveWindow.SelectedSheets.Delete

Then I need to avoid the message box where I need to confirm to delete the sheet because the sheet is not empty.

Is there a solution to copy a pivot in a new sheet replacing the previous pivot and vithout changing the number of the sheet?