macro y tabla dinamica

¡ Hola !
Genere una macro para que me cree una tabla dinamica

Range("A2").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Ajuste!R1C1:R4224C17", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Informe!R3C1", TableName:="Tabla dinámica1", _
DefaultVersion:=xlPivotTableVersion14

esta se cae por que en esta parte del programa TableName:="Tabla dinámica1" cada vez que corro el programa se cambia "dinámica2", "dinámica3", etc. y no se como solucionarlo, necito ayuda con este problema.