Excel PivotTables

[Lucas]

How can I translate this code to QM?

Sub Macro1()
'

'

'
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"DATA1!R1C1:R745C3").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:="T1", _
ColumnFields:="T2"
ActiveSheet.PivotTables("Tabla dinámica3").PivotFields("TOT"). _
Orientation = xlDataField
Charts.Add
ActiveChart.SetSourceData Source:=Sheets("Hoja7").Range("A3")
ActiveChart.Location Where:=xlLocationAsNewSheet
Sheets("Hoja7").Select
End Sub