Macro werkt niet in Office 2010 : subtotalen inbrengen

[BasHD]

De volgende macro levert bij office 2003 geen probleem:

Sub MaakGemmideldenOrigineel()

Dim xWaarde, Rij, Ywaarde, Bereik1, Bereik2, Bereik3, MySheets, Sheet, Nummer, LastRow, xSheets, Aantal, AantalSheets
Dim Rng1 As Variant

AantalSheets = Worksheets.Count

Application.ScreenUpdating = False
    
    'Titels plakken
    
    
    Sheets("InvoerAccess").Select
    Rows("2:2").Select
    Selection.Copy

MySheets = Array("VersGras", "1eSnede", "GrasIngekuild", "SnijmaisIngekuild", "Overig")
xSheets = AantalSheets - 2



Nummer = -1

    For teller = 1 To xSheets

        Nummer = Nummer + 1
        Sheet = MySheets(Nummer)
        Sheets(Sheet).Select
        
        LastRow = ActiveSheet.UsedRange.Rows.Count
        If LastRow = 1 Then GoTo Verder:
        
      
        Selection.Subtotal GroupBy:=1, Function:=xlAverage, TotalList:=Array( _
        6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33 _
        , 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, _
        60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78), Replace:=True, _
       [B][COLOR="darkred"] PageBreaks:=False, SummaryBelowData:=False
        Selection.Subtotal GroupBy:=2, Function:=xlAverage, TotalList:=Array( _
        6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33 _
        , 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, _
        60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78), Replace:=False, _
        PageBreaks:=False, SummaryBelowData:=False[/COLOR][/B]    
    
            
               
Verder:
        
    Next teller
    
   
    Sheets("Basis").Select

    
End Sub

Als ik Office 2010 gebruik krijg ik de sortering in een andere volgorde. In 2010 komt eerst het gemiddelde van het jaar en daarna van de naam terwijl dat in 2003 andersom is. Ik doe er een bestandje bij. Iemand die er iets van weet?

gr

BBBekijk bijlage Helpmij vraag.xls