Creating And Summing In Multiple Sheets?

1. I created a macro to put in multiple sheets when clicking in pivot table fields

2. I didn't want to include 2 main sheets in the process ("PROV_AGENTEN_SEE_EXTERN_2013073") and ("PIVOT 20130731")

3. In each newly created list I want to put in the sum of the last column. This will be calculated in the last cell below the table.

The last point is troubling because it looks at right values but the sums are not right. They are right only in the last sheet in others it isn't calculated correctly.

VB:
Sub Sheetsfrompivot()

Application.DisplayAlerts = False
For Each Sheet In Application.Worksheets [code].....