Option Explicit

Sub MakeDataBaseTable()
    Dim SummaryTableRange As Range
    Dim PivotTableSheet As Worksheet
    Set SummaryTableRange = ActiveCell.CurrentRegion
    If SummaryTableRange.Count = 1 Or SummaryTableRange.Rows.Count < 3 Then
        MsgBox "Select a cell in the summary table.", vbCritical
        Exit Sub
    End If
    ActiveWorkbook.PivotCaches.Add _
        (SourceType:=xlConsolidation, _
        SourceData:=Array(SummaryTableRange.Address(True, True, xlR1C1, True))) _
        .CreatePivotTable TableDestination:="", _
        TableName:="PivotTable1"
    Set PivotTableSheet = ActiveSheet
    With PivotTableSheet
        .PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
        .PivotTables("PivotTable1").DataPivotField.PivotItems("Sum of Value").Position = 1
        .PivotTables("PivotTable1").PivotFields("Row").Orientation = xlHidden
        .PivotTables("PivotTable1").PivotFields("Column").Orientation = xlHidden
    End With
    Range("B4").ShowDetail = True
    Application.DisplayAlerts = False
    PivotTableSheet.Delete
    Application.DisplayAlerts = True
End Sub