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.