A guess (more info needed):
Sub testingmacro()
Dim dataname As String
Dim newsheet As String
Columns("A:O").Select
dataname = ActiveSheet.ListObjects(1).Name
Sheets.Add
newsheet = ActiveSheet.Name
With ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=dataname, Version:=6).CreatePivotTable(TableDestination:=newsheet & "!R3C1", DefaultVersion:=6)
With .PivotFields("request.u_campaign")
.Orientation = xlPageField
.Position = 1
End With
With .PivotFields("assignment_group")
.Orientation = xlRowField
.Position = 1
End With
.AddDataField ActiveSheet.PivotTables("PivotTable1").PivotFields("number"), "Count of number", xlCount
End With
End Sub