Excel Macros Arreglo de columnas en tabla dinámica

[calichet]

Buenos días:
Las cantidad y nombres de las columnas son variables.
(1) En la creacion de la tabla dinamica, debe generar los encabezados de acuerdo a los encabezados dados por la hoja base.
Dim Arreglo As String
nombre = ActiveSheet.Name
Range("A1").Select
col = Range("CZ1").End(xlToLeft).Column
Arreglo = "'"
For i = 1 To col
Arreglo = Arreglo & Cells(1, i) & ""","""
Next

Arreglo = Mid$(Arreglo, 1, Len(Arreglo) - 2)
(2) Cuando paso el arreglo para armar la tabla dinamica me genera error "1004"
ActiveSheet.PivotTables("TD1").AddFields RowFields:=Array(Arreglo), PageFields:="Compañía"
'"Grupo", "Centro_costo", "Concepto", "Enero", "Febrero", "Marzo", "Abril", _
'"Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", _
'"Noviembre", "Diciembre"), PageFields:="Compania"
Necesito de su colaboración para solucionar este problema.
Gracias.