Hallo Jelena,
wenns denn unbedingt ein Makro sein muss, dann wäre das der Code dazu:
With Worksheets("Pivot")
Application.AddCustomList ListArray:=.Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp))
.Cells(.PivotTables(1).DataBodyRange.Row, .PivotTables(1).TableRange1.Column).Sort _
Order1:=xlAscending, Type:=xlSortLabels, OrderCustom:=Application.CustomListCount + 1, Orientation:=xlTopToBottom
.PivotTables(1).SortUsingCustomLists = False
Application.DeleteCustomList Application.CustomListCount
End With
Gruß Mr. K.