Sub MakeDataBaseTable()
Sheets(2).PivotTableWizard xlDatabase, Range('A1:E65000')
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:='Sheet2'). _
CreatePivotTable TableDestination:='', TableName:='pivot'
ActiveSheet.Name = 'Sheet2'
With PivotTableSheet
.PivotTables('PivotTable1').PivotFields('Row').Orientation = xlRowField
.PivotTables('PivotTable1').PivotFields('Column').Orientation = xlColumnField
End With
End Sub