Copiar tabla dinámica y pegar agregando otra columna vba

Tengo una tabla dinámica que quiero copiar y pegar en formato de tabla agregando otra columna que se llame comisiones, básicamente solo estaría multiplicando la columna sum of venta por 1.30

Intente primero copiar y pegar la tabla para ir probando como funciona pero no logro que funcione

ActiveSheet.PivotTables("Tabla dinámica1").PivotSelect "", xlDataAndLabel, True
Selection.Copy
Sheets("tabla").Select
Range("F3").Select