Pivot Table Creator

Sub CreateAutomatedPivotTable()
    Dim ws As Worksheet
    Dim pivotWs As Worksheet
    Dim sourceRange As Range
    Dim pivotTable As pivotTable

    Set ws = ActiveSheet
    Set pivotWs = Worksheets.Add(After:=ws)
    pivotWs.Name = "Pivot_" & Format(Now, "mmddyyyy_hhmmss")

    ' Define source range (assuming data starts at A1)
    Set sourceRange = ws.Range("A1").CurrentRegion

    ' Create pivot table
    Set pivotTable = pivotWs.PivotTables.Add( _
        PivotCache:=ActiveWorkbook.PivotCaches.Create( _
            SourceType:=xlDatabase, _
            SourceData:=sourceRange), _
        TableDestination:=pivotWs.Range("A1"))

    MsgBox "Pivot table created! Configure fields as needed."
End Sub