Tabla dinámica en un userform

Para pasar una tabla dinámica a un user form:

1. Crea tu userform

2. Crea un listbox

3. Dale doble click al userform y en el panel que te aparece, borra lo que te aparece y copia la siguiente macro

4. Selecciona la hoja donde tienes la tabla dinámica y luego ejecuta la macro

Private Sub UserForm_Activate()
ucol = ActiveCell.SpecialCells(xlLastCell).Column
fin = ActiveCell.SpecialCells(xlLastCell).Address
ListBox1.ColumnCount = ucol
ListBox1.RowSource = "A1:" & fin
End Sub

Para la gráfica, dale click derecho a la tabla dinámica y selecciona la opción Gráfico dinámico y en automático te crea la gráfica.

Si quieres la secuencia en vb:

    Charts.Add
    ActiveChart.SetSourceData Source:=Sheets("Hoja4").Range("C12")
    ActiveChart.Location Where:=xlLocationAsNewSheet

Saludos.Dam

Podrías de favor, cerrar la pregunta.