Normal Data sheet auto convert into pivot data sheet after auto Delete pivot sheet

[VKMouli]

Dear Experts,

Is there any VBA code exists -
Step-1 Normal Data sheet will be created into pivot Table,
Step-2 after that its auto copy the existing pivot Table fields into new work sheet with desired sheet name,
Step-3 later auto delete pivot table?

Looking your help??

Regards, V K Mouli

 

[rakesh seebaruth]

Sub CreatePivotTable() 'Declare your variables 
Dim wb As Workbook 
Dim wsData As Worksheet 
Dim ws Pivot As Worksheet
 Dim pt As PivotTable 'Set the workbook and worksheets 
Set wb = ThisWorkbook Set wsData = wb.Worksheets("Data") 
Set wsPivot = wb.Worksheets("Pivot") 'Create the Pivot Table
 Set pt = wsData.PivotTableWizard 'Copy the Pivot Table to the new worksheet
 wsPivot.Range("A1").PasteSpecial xlPasteValues 'Delete the Pivot Table
 wsData.PivotTables(1).TableRange2.Clear 
End Sub.