🖍️Informes Instantáneos utilizando la Función PIVOTARPOR con una Macro 😱

Este video te muestra lo versátil que es incorporar lo nuevo de las tablas Dinámicas en funciones y dinamizarla con una macro.
Te dejo la formula y el código para ahorrarte tiempo en el desarrollo de tu lógica.
="Tabla1["&B2&"],Tabla1["&B3&"],Tabla1[Ventas ($)],"&B4&")"

Private Sub Worksheet_Change(ByVal Target As Range)
' Verifica si la celda que cambió es B2, B3 o B4
If Not Intersect(Target, Range("B2:B4")) Is Nothing Then
' Si es así, ejecuta el código
Valor = Range("C1").Value
Range("B6").Formula2R1C1 = "=PIVOTBY(" & Valor
End If
End Sub