Poner nombres de celda en tabla dinámica.

Para Dante Amor.

Buen día tengo el siguiente código, en el cual creo una tabla dinaminca y la pongo en otra hoja, cambio el nombre de la tabla, pero lo que no me queda, es poner los nombres de los campos automáticamente.

Espero me puedan apoyar, dejo como comentarios lo que he intentado hacer.

Sub crear()
Dim pt As PivotTable
Dim pc As PivotCache
Dim fin As Integer
Dim titulo(10) As String
fin = Cells(1 & Columns.Column).End(xlToLeft).Column
Set pc = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Sheets("hoja1").Range("a1").CurrentRegion.Address)
Worksheets.Add
ActiveSheet.Name = "RESUMEN"
Set pt = ActiveSheet.PivotTables.Add(PivotCache:=pc, TableDestination:=Range("a5"), TableName:="RESUMEN")
For co = 1 To fin
titulo(co) = Hoja1.Cells(1, co)
x = titulo(co)
'MsgBox titulo(co) & " " & co  
    ActiveSheet.PivotTables("RESUMEN").AddDataField ActiveSheet.PivotTables _
        ("RESUMEN").PivotFields(co) ', x, xlSum  '---- dejo como comentario lo que e intentado hacer
Next co
End Sub