How to create pivot table using vba code

How to create pivot table using vba code
Sub CreatePivotTable()
Dim pc As PivotCache
Dim pt As PivotTable
Dim pf As PivotField
Set pc = ThisWorkbook.PivotCaches.Create(xlDatabase, SourceData:=Sheet1.Name & "!" & Sheet1.Range("A1").CurrentRegion.Address, Version:=xlPivotTableVersion15)
Worksheets.Add
Range("A1").Select
Set pt = pc.CreatePivotTable(TableDestination:=ActiveCell, TableName:="Emp Report")
Set pf = pt.PivotFields("Product")
pf.Orientation = xlRowField
Set pf = pt.PivotFields("Region")
pf.Orientation = xlColumnField
Set pf = pt.PivotFields("Name")
pf.Orientation = xlDataField
ActiveSheet.PivotTables("Emp Report").NullString = 0
End Sub