Sub CreatePT()

Dim Pt As PivotTable
Dim strField As String

s_ = 1 'Номер того столбца в выделенном, который пойдет в строки
z_ = 3 'Номер того столбца в выделенном, который пойдет в значения

Str_ = Selection.Cells(1, s_).Value
Zn_ = Selection.Cells(1, z_).Value

strField = Selection.Cells(1, 1).Text
Range(Selection, Selection.End(xlDown)).Name = "Items"

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
SourceData:="=Items").CreatePivotTable TableDestination:="", _
TableName:="ItemList"

Set Pt = ActiveSheet.PivotTables("ItemList")
ActiveSheet.PivotTableWizard TableDestination:=Cells(3, 1)
Pt.PivotFields(Str_).Orientation = xlRowField
Pt.AddDataField ActiveSheet.PivotTables( _
           "ItemList").PivotFields(Zn_), "Сумма по полю " & Zn_, xlSum
End Sub