¿Cómo Puedo restar dos columnas con una macro?

Tengo dos columnas B y C en una tabla dinámica, ¿Cómo puedo restar ambas columnas y el resultado se imprima en la columna D? ., aquí esta mi macro para crear la tabla dinámica

Sub CrearTablaDinamica1()
Dim PCache As PivotCache
Dim TDinamica As PivotTable

'Deshabilitar la actualización en pantalla y el despliegue de alertas
Application.ScreenUpdating = False
Application.DisplayAlerts = False

'Eliminar Hoja (Si Existe)
On Error Resume Next
Worksheets("TablaDinamica").Delete

'crear hoja tabla dinamica
Worksheets.Add(before:=ActiveSheet).Name = "TablaDinamica"

'crear pivot cache
Set PCache = ActiveWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, SourceData:="Tabla1")

'Crear Tabla dinámica
Set TDinamica = PCache.CreatePivotTable( _
TableDestination:="TablaDinamica!R3C1", TableName:="Tabla dinámica1")

'Insertar filas
With TDinamica.PivotFields("Concepto")
.Orientation = xlRowField
.Position = 1
End With

'Insertar Valores

With TDinamica.PivotFields("Abonos")
.Orientation = xlDataField
.Position = 1
.Function = xlSum
.NumberFormat = "#,##0"
End With

With TDinamica.PivotFields("Cargos")
.Orientation = xlDataField
.Position = 1
.Function = xlSum
.NumberFormat = "#,##0"
End With

End Sub