pivot table

Yasmina,
The best way to start is to create the pivot table you want, using the Pivot Table Wizard (on the Data menu), recording a macro as you go. You can then tidy up the recorded code---for example to pick up named ranges.

For example, this creates a pivot table on a new sheet called "PT Orders":

Sub Pivot_Table_Orders()
'
' Modified version
'
Dim pvc As PivotCache ‘The underlying data structure for the pivot table

Set pvc = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Filtered_Orders")

pvc.CreatePivotTable TableDestination:="", TableName:="PT Orders"

With ActiveSheet.PivotTables("PT Orders")
.SmallGrid = False
.AddFields RowFields:="M", ColumnFields:="Outlet"
.PivotFields("Order Price").Orientation = xlDataField
End With

On Error Resume Next ‘In case there is no previous sheet to delete
Sheets("PT Orders").Delete
ActiveSheet.Name = "PT Orders"
End Sub


-------------------------------------------------------