• Aug 18, 2025 microsoft excel vba examples buddhayana or id Destination:=pivotWs.Range("A1"), _ TableName:="TeachingsPivot") ' Add fields With pt .PivotFields("Speaker").Orientation = xlRowField .PivotFields("Date").Orientation = xlColumnField .AddDataField .PivotFields("Teaching Name"), "Count of Teachings", xlCount End With MsgBox "Pivot table created By Bill Terry
