Tabla Dinámica Excel 2010

Buenas tardes,

Tengo una macro que genera una tabla dinámica pero me genera error, sé que puede ser por que el destino no puede ser fijo, pero esto lo había solucionado con una variable, ahora que cambie de versión de 2007 a 2010 no volvió a funcionar.

La idea es que en la misma hoja genere la tabla y no adicione hojas nuevas.

Agradezco su ayuda

Dim MiMacroMiMacro = ActiveWorkbook.Name     Hoja1.Select     Hoja1.Columns("A:z").Delete Shift:=xlToLeft     Range("A2").Select         ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _        "'PPTOS_DETALLE'!R1C1:R65536C70").CreatePivotTable _        TableDestination:="[" & MiMacro & "]Tabla!R4C1", TableName:= _        "Tabla dinámica2", DefaultVersion:=xlPivotTableVersion10[/PHP]