Need help in error '9'

Gentlemen,
I try to build sorting code, but I face error '9'

Sub Sort()
Application.ScreenUpdating = False
Sheets("PivotTable1").PivotTables("PivotTable1").PivotFields("Emp Name").AutoSort _
        [drpSortMethod].Value, [usSortStat].Value, Sheets("PivotTable1").PivotTables("PivotTable1"). _
        PivotColumnAxis.PivotLines([drpSortStat].Value), 1
Application.ScreenUpdating = True
End Sub