Como crear una macro en excel para una tabla dinámica

Al crearla me marca este error en negritas

Sub Macro3()
'
' Macro3 Macro
'
' Acceso directo: Ctrl+Mayús+T
'
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Sheets.Add
ActiveWorkbook.Worksheets("Tabla Dinamica").PivotTables("Tabla dinámica1"). _
PivotCache.CreatePivotTable TableDestination:="Hoja1!F3C1", TableName:= _
"Tabla dinámica2", DefaultVersion:=xlPivotTableVersion10
Sheets("Hoja1").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("motivo baja")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("detalle motivo")
.Orientation = xlPageField
.Position = 1
End With

Aqui lleva mucho mas codigo pero esta muy extenso.

Sheets("Reporte Mensual Terminado").Select
Range("A3").Select
Sheets("Hoja1").Select
Range("B3").Select
End Sub