Sort PivotTable VBA - excel

Question

OBJECTIVE
Sort Pivot Table Values by Descending order.
APPROACH
Delete previous PivotTable (PIVOT)
Set up new PivotTable location (target)
Create PivotCache (pvtCache)
Deply PivotTable (pvt)
Add PivotTable Fields (pvt.PivotFields(_))
ISSUE: Sort PivotTable field (PivotField("Base Expense")) in descending order
CODE
Sub createPivot()
Dim ws As Worksheet
Dim pvtCache As pivotCache
Dim pvt As pivotTable
Dim srcData As String
Dim lastRow As Long
Dim startPvt As String
Dim target As Worksheet
'Delete previous pivottable
Worksheets("PIVOT").PivotTables("PivotTable1").TableRange2.Clear
'Select pivot table data
Worksheets("CONSOLIDATED").Activate
Set ws = ActiveSheet
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
srcData = ActiveSheet.Name & "!" & Range("A1:H" & lastRow).Address(ReferenceStyle:=xlR1C1)
'Set pivot table location
Set target = ThisWorkbook.Worksheets("PIVOT")
startPvt = target.Name & "!" & target.Range("A1").Address(ReferenceStyle:=xlR1C1)
'Create pivot cache
Set pvtCache = ActiveWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, _
SourceData:=srcData)
'Deploy pivot table
Set pvt = pvtCache.CreatePivotTable( _
TableDestination:=startPvt, _
TableName:="PivotTable1")
'Add Pivot Fields
pvt.PivotFields("Fiscal Year").Orientation = xlColumnField
pvt.PivotFields("Fiscal Year").Position = 1
pvt.PivotFields("Fiscal Month").Orientation = xlColumnField
pvt.PivotFields("Fiscal Month").Position = 2
pvt.PivotFields("Unit").Orientation = xlRowField
pvt.PivotFields("Unit").Position = 1
pvt.PivotFields("Project").Orientation = xlRowField
pvt.PivotFields("Project").Position = 2
pvt.PivotFields("Base Expense").Orientation = xlDataField
'Sort by largest !!!ERROR!!!
pvt.PivotField("Base Expense") _
.AutoSort xlDescending, "Base Expense"
End Sub
ERROR
"Object doesn't support this property or method"
# Line
'Sort by largest !!!ERROR!!!
pvt.PivotField("Base Expense") _
.AutoSort xlDescending, "Base Expense"
QUESTIONS
Unsure why this error is being thrown. I've searched documentation that leads me to believe this should work (https://msdn.microsoft.com/en-us/library/office/ff834371.aspx) NOTE: ActiveSheet != to the sheet the pivot table is on, but I dont think that should create an issue here
Any recommendations on code-refactoring is appreciated.

Answer 1

The problem you are having is that you are trying to sort the values in the data field. It doesn't know which other field to sort by.
The PivotField that you want to run the AutoSort method on is the field that you want sorted. The Field parameter of the method is the key that you want to sort it on.
In this case, you want something like this:
pvt.PivotField("Project") _
.AutoSort xlDescending, "sum of Base Expense"