Pivots

public wbTest as workbook
public wsTable as worksheet
public wsPiv as worksheet

Sub CreatePivotTable
    wbTest.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=wsTable.ListObjects("tblTest"), Version:=6).CreatePivotTable TableDestination:=wsPiv.[a3], TableName:="PivotTest", DefaultVersion:=6
    With wsPiv.PivotTables("PivotTest").PivotFields("MyField1")
        .Orientation = xlPageField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("PivotTest").PivotFields("MyField2")
        .Orientation = xlRowField
        .Position = 1
    End With
End Sub

Sub CreatePivotTable()
'PURPOSE: Creates a brand new Pivot table on a new worksheet from data in the ActiveSheet
Dim sht As Worksheet
Dim pvtCache As PivotCache
Dim pvt As PivotTable
Dim StartPvt As String
Dim SrcData As String

'Determine the data range you want to pivot
   SrcData = ActiveSheet.Name & "!" & Range("A1:R100").Address(ReferenceStyle:=xlR1C1)

'Create a new worksheet
   Set sht = Sheets.Add

'Where do you want Pivot Table to start?
   StartPvt = sht.Name & "!" & sht.Range("A3").Address(ReferenceStyle:=xlR1C1)

'Create Pivot Cache from Source Data
   Set pvtCache = ActiveWorkbook.PivotCaches.Create( _
   SourceType:=xlDatabase, _
   SourceData:=SrcData)

'Create Pivot table from Pivot Cache
   Set pvt = pvtCache.CreatePivotTable(TableDestination:=StartPvt, TableName:="PivotTable1")

End Sub

Option Explicit

Sub CreateMultiplePivotTables()

    'set the data for the source range
    Dim source_range As Range
    Set source_range = ActiveSheet.Range("A1").CurrentRegion

    'create the pivot cache
    Dim pivot_cache As PivotCache
    Set pivot_cache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=source_range)

    Dim current_sheet As Worksheet
    Dim current_pivottable As PivotTable

    'create a new worksheet for the first pivot table
    Set current_sheet = Worksheets.Add

    'create first pivot table
    Set current_pivottable = current_sheet.PivotTables.Add(PivotCache:=pivot_cache, TableDestination:=current_sheet.Range("A1"), TableName:="PivotTable1")

    'build the first pivot table
    With current_pivottable
        'etc
        '
        '
    End With

    'create another new worksheet for the second pivot table
    Set current_sheet = Worksheets.Add

    'create second pivot table
    Set current_pivottable = current_sheet.PivotTables.Add(PivotCache:=pivot_cache, TableDestination:=current_sheet.Range("A1"), TableName:="PivotTable2")

    'build the second pivot table
    With current_pivottable
        'etc
        '
        '
    End With

End Sub

Sub DeletePivotTable()
    'PURPOSE: How to delete a specifc Pivot Table
    'SOURCE: www.TheSpreadsheetGuru.com

    'Delete Pivot Table By Name
    ActiveSheet.PivotTables("PivotTable1").TableRange2.Clear
End Sub

Sub DeleteAllPivotTables()

Dim sht As Worksheet
Dim pvt As PivotTable
    'Loop Through Each Pivot Table In Currently Viewed Workbook
    For Each sht In ActiveWorkbook.Worksheets
        For Each pvt In sht.PivotTables
            pvt.TableRange2.Clear
        Next pvt
    Next sht
End Sub

'Compacte weergave
ActiveSheet.PivotTables("PivotClCsNmbrs").RowAxisLayout xlCompactRow

'Overzichtsweergave
ActiveSheet.PivotTables("PivotClCsNmbrs").RowAxisLayout xlOutlineRow

'Tabelweergave
ActiveSheet.PivotTables("PivotClCsNmbrs").RowAxisLayout xlTabularRow

'Inschakelen Labels herhalen
ActiveSheet.PivotTables("Pivot1").RepeatAllLabels xlRepeatLabels
piv1.RepeatAllLabels xlRepeatLabels

'Uitschakelen Labels herhalen
piv1.RepeatAllLabels xlDoNotRepeatLabels

pt.PivotFields("PivField1").Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)

For cntr = 2 To ptProduct.RowRange.Rows.Count
   cmbFilterService.AddItem ptProduct.RowRange.Cells(cntr, 1).Value
Next