Excel - problema con macro

Hola, encontré una guía en este foro para adaptar un macro a mis necesidades, pero tengo una inquietud,necesito insertar otra columna "descuento" pero no se como hacerlo

campana producto valor reportado descuento
campanauno e-advertising 1 100 15
campanauno e-advertising msn 2 200 20
campanauno correo 3 300 15
campanauno direct 1111 100 30
campanados e-advertising 4 400 0
campanados e-advertising msn 5 500 5
campanatres correo 6 600 10
campanatres e-advertising 7 700 25

el codigo que tengo es este, y funciona pero necesito agregarle la columna, hay forma que tambien tome los titulo de una o me toca ingresarlos manualmente cuando haya corrido el macro??? Gracias:

Sub cambiar_filas_columnas()

Dim rngOrig As Range, rngDest As Range
Dim rngProductos As Range, off%

Dim i&, j&, sCampana$, sProductos$, dValor#, dReporte#
Set rngOrig = [a1] 'Primer nombre
Set rngDest = [f3] 'Destino del primer nombre
Set rngProductos = [g2] 'Primer celda para nombre de materia

i = 0: j = 0
Do While rngOrig.Offset(i) <> ""
With rngOrig
sCampana = .Offset(i, 0)
sProductos = .Offset(i, 1)
dValor = .Offset(i, 2)
dReporte = .Offset(i, 3)
If .Offset(i) <> rngDest.Offset(j - 1) Then
rngDest.Offset(j) = sCampana
j = j + 1
End If
End With

off = 0
With rngProductos
Do While .Offset(0, off).Value <> ""
If .Offset(0, off).Value = sProductos Then
.Offset(j, off).Value = dValor
GoTo siga
End If
off = off + 1
Loop

.Offset(0, off).Value = sProductos
.Offset(j, off).Value = dValor
End With

siga:
i = i + 1
Loop
Set rngOrig = Nothing
Set rngDest = Nothing
Set rngProductos = Nothing
End Sub