Change and autorefresh pivot table as per the selection (Very tough one )

I have a data for which i need to make a pivort table but i need it to be refreshed automatically
For example
My table looks as below
These are the heading of my table

Date Stacks sold Stacks Pending Stacks damaged Seler name Seler Agent


Now i have Three tabs stating Date, Seler Name and Seler Agent

As i click on date tab my pivot table should automatically get arranged as per date(for exep: if i click on date the first row of my pivot should be date)

As i click on Seler name the pivot table should automatically get arranged as per Seler name(for exep: if i click on Seler Name the first row of my pivot should be Seler name )


As i click on Seler agent the pivot table should automatically get arranged as per Seler agent (for exep: if i click on Seler Agent the first row of my pivot should be Seler Agent )

The below will flash when i will click on date

Date Stacks sold Stacks Pending Stacks damaged
12th Dec 10 12 5
13th Dec 20 14 2
14th Dec 30 16 4

The below will flash when i will click on Seler name

Seler Name Stacks sold Stacks Pending Stacks damaged
Amitav 1 5 0
Jackson 12 14 2
ravi 22 16 4

The below will flash when i will click on Seler Agent

Seler Agent Stacks sold Stacks Pending Stacks damaged
T Mobile 1 5 4
3G 12 09 2
O2 05 16 4


Its a very tough job but i hope there will be some one who can help me to write the code for it


I am also attaching the excel file for better understanding

I can do it if you show your sample data with a pivot table, and modify what you mean "tab"

See attachment:
Example: Show Date

PHP Code: 

Sub ShowDate()
With ActiveSheet.PivotTables("PivotTable1")
 .PivotFields("Date").Orientation = xlRowField
 .PivotFields("Seler Name").Orientation = xlHidden
 .PivotFields("Seler Agent ").Orientation = xlHidden
End With
End Sub 


Note:
One of your field name has a space at end: "Seler Agent "
It should be Sale or Seller and should not have any extra space.