We have to insert a pivot table every week . I want to do it automatically using macro . I have a sheet bank.xls i want to insert a pivot table like on all the data . I want to put res name fiels under row labels then mon and tue fields under values . I want to write a macro for this .
Can somebody please help me with this .

Ok i wrote the below code for this thing -

Sub test()
ActiveWorkbook.Sheets("CDH006").Select
Range("A1").Select
Set objTable = Sheet1.PivotTableWizard

Set objField = objTable.PivotFields("Res")
objField.Orientation = xlRowField


Set objField = objTable.PivotFields("mon")
objField.Orientation = xlDataField

objField.Function = xlSum

Set objField = objTable.PivotFields("tue")
objField.Orientation = xlDataField
objField.Function = xlSum

ActiveSheet.PrintPreview

End Sub

Now my problem is sum value for mon and tue is coming under row labels i want it under columns . Please help me with this .

Any body has come across above type of situation or like how to work on the pivot table macros ??