$sort->{SortFields}->Clear();
$sort->{SortFields}->Add($Sheet->Range("e$filter_row:e$filter_row"), xlSortOnValues, xlDescending, xlSortNormal);
$sort->{Header} = xlYes;
$sort->{MatchCase} = xlYes;
$sort->{Orientation} = xlTopToBottom;
$sort->{SortMethod} = xlPinYin;
$sort->Apply;