VBA copy paste runs different in debug mode - excel

Question

I have a spreadsheet in Excel with three pivot charts. I wrote a VBA code that does the following:
' Copies sheets 1-4
ThisWorkbook.Worksheets(Array("1", "2", "3", "4")).Copy
'Transforms each new sheet data in values only.
For Each iSheet In ActiveWorkbook.Sheets
iSheet.Activate
iSheet.UsedRange.Copy
iSheet.UsedRange.PasteSpecial xlPasteValuesAndNumberFormats
iSheet.Range("A1").Select
Next iSheet
' After pasting, deletes the contents of the cells but keeps the graphs
' in spread sheet 4
ActiveWorkbook.Sheets("4").Columns("J:AB").Clear
This code runs differently in debug mode (F8) compared to when it is run by pressing F5 or running with a button in Excel. In debug mode, it keeps all the series information in the Pivot Charts when the Pivot Tables are pasted as values. When it runs nonstop, it loses the pivot charts information, so that for instance the series names change to defaults 'Series 1', the x values go from specific date values to jan-00, format of x axis labels change to text, etc. I have no idea why. In other very similar question, someone pointed out that PasteSpecial behaves differently when the target worksheet is not activated, which is why I added iSheet.Activate. This difference in action may also be a result of the Clear method of the Pivot Tables.
I tried to add Activate in different steps in the code to no avail.

Answer 1

I'm assuming you want to leave only values on every sheet on the active workbook so this is it:
' Copies sheets 1-4
ThisWorkbook.Worksheets(Array("1", "2", "3", "4")).Copy
'Transforms each new sheet data in values only.
For Each iSheet In ActiveWorkbook.Sheets
iSheet.UsedRange.Values = iSheet.UsedRange.Values
Next iSheet
Thought the first line copying the sheets has no sense.

Answer 2

Looks like you don't care if you really keep the values of the pivot table. In an example I just ran, I have a pivot table in G2:L19. I executed this line of code, which deleted the columns containing the pivot table, and the pivot chart remained, plotting the same data, but the data was now hard-coded into the chart.
ActiveSheet.Range("G:L").Delete
If you do want to retain the values and number formats but not the pivot table itself, this code, run in F5 or F8 mode, keeps the data where the pivot table was, and it keeps the data in the chart, hard-coded (unlinked from the pivot table).
Sub UnpivotTable()
With ActiveSheet.Range("G2:L19")
.Copy
.PasteSpecial xlPasteValuesAndNumberFormats
End With
End Sub
Do you want to keep the links from the chart to the data? Store the series formulas, undo the pivot table, and reapply the series formulas:
Sub UnpivotTableKeepChartLinks()
Dim MyChart As Chart
Set MyChart = ActiveSheet.ChartObjects("Chart 1").Chart
Dim vSrsFmlas As Variant
ReDim vSrsFmlas(1 To MyChart.SeriesCollection.Count)
Dim iSrs As Long
For iSrs = 1 To MyChart.SeriesCollection.Count
vSrsFmlas(iSrs) = MyChart.SeriesCollection(iSrs).Formula
Next
With ActiveSheet.Range("G2:L19")
.Copy
.PasteSpecial xlPasteValuesAndNumberFormats
End With
For iSrs = 1 To MyChart.SeriesCollection.Count
MyChart.SeriesCollection(iSrs).Formula = vSrsFmlas(iSrs)
Next
End Sub