¿Es posible simplificar el código de formato de una tabla dinámica?

Hola Expertos,

Mi caso es el siguiente, estoy haciendo una macro que incluye varias tablas dinámicas, estas las hice grabando el código, lo cual hace que por cada campo realice un formato sumando 73 filas, 2274 caracteres y 63 párrafos, esto para una sola tabla y en la misma macro debo crear varias. El siclo repetitivo es algo así:

With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("NRO_NOT_CREDITO")
.Orientation = xlDataField
.Caption = "NRO NC"
.Position = 5
.NumberFormat = "#,##0"
End With

With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("VR_NOT_CREDITO")
.Orientation = xlDataField
.Caption = "VLR NC"
.Position = 6
.Function = xlSum
.NumberFormat = "$ #,##0"
End With

Lo que deseo es que en un solo with ... End whith me haga todo en en su defecto hacerlo con otro código.

De antemano mil gracias por su colaboración.