my $workbook = ActiveWorkbook;
my $sheet = $workbook->Worksheets('A');
my $sort = $sheet->{AutoFilter}->{Sort};
$sort->{SortFields}->Clear();
$sort->{SortFields}->Add(...);
$sort->{Header} = xlYes;
...