> ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ > "Hoja1!R1C1:R844C17").CreatePivotTable TableDestination:="", TableName:= _ > "Tabla dinámica3" > ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1) > ActiveSheet.Cells(3, 1).Select > ActiveSheet.PivotTables("Tabla dinámica3").SmallGrid = False > ActiveSheet.PivotTables("Tabla dinámica3").AddFields RowFields:="Llamadas" > ActiveSheet.PivotTables("Tabla dinámica3").PivotFields("Llamadas").Orientation _ > = xlDataField > Charts.Add > ActiveChart.SetSourceData Source:=Sheets("Hoja4").Range("A3") > ActiveChart.Location Where:=xlLocationAsNewSheet > Sheets("Hoja4").Select > Columns("A:A").Select > Selection.Insert Shift:=xlToRight > Rows("1:2").Select > Selection.Insert Shift:=xlDown > Range("B8").Select > ActiveSheet.PivotTables("Tabla dinámica3").PivotSelect "", xlDataAndLabel > ActiveSheet.PivotTables("Tabla dinámica3").Format xlReport2 > Range("C5").Select > ActiveSheet.PivotTables("Tabla dinámica3").PivotFields("Contar de Llamadas"). _ > Caption = "Total" > Range("B2:D3").Select>-------------------------------------------------------