Description:
I have a file with a specific macro that always crashes Calc with the following assertion:

/usr/include/c++/11.2.0/bits/stl_vector.h:1045: std::vector<_Tp, _Alloc>::reference std::vector<_Tp, _Alloc>::operator[](std::vector<_Tp, _Alloc>::size_type) [with _Tp = ScSortKeyState; _Alloc = std::allocator<ScSortKeyState>; std::vector<_Tp, _Alloc>::reference = ScSortKeyState&; std::vector<_Tp, _Alloc>::size_type = long unsigned int]: Assertion '__n < this->size()' failed.

This is a regression, downgrading to "LibreOffice 7.2.4.1 20(Build:1)" fixes the problem.

The macro code is the following (not sure if it helps). I don't know where exactly it crashes:

```
Public Sub GenerateWeeklyReport()
    Row_Min = 3                '"Tasks" area starts at Row 3
    Row_Max = 62               '"Tasks" area ends at Row 62
    Col_TaskNr = 1             '"Task Nr"       at Column  1
    Col_Task = 2               '"Task Descript" at Column  2
    Col_Track = 9              '"Track"         at Column  9
    Col_TotEff = 20            '"TotEff"        at Column 20
    Col_WkyEff = 21            '"WkyEff"        at Column 21
    Col_WkyEffHM = 22          '"WkyEffHM"      at Column 22
    Col_DoingIt = 23           '"DoingIt"       at Column 23
    Col_TotPastEff = 24        '"TotPastEff"    at Column 24
    Col_WkyPastEff = 25        '"WkyPastEff"    at Column 25
    Col_StartedAt = 26         '"Started At"    at Column 26

    Set WrkstTasks = Worksheets("tasks")
    Set WrkstLog = Worksheets("report")
    
    'clear all
    WrkstLog.Range(Cells(1, 1), Cells(Row_Max, 3)).ClearContents
    'reset to not bold
    WrkstLog.Range(Cells(1, 1), Cells(Row_Max, 3)).Select
    Selection.Font.Bold = False
    
    r = 1
    TrkAEff = 0#
    TrkBEff = 0#
    spentMw = 0#
    For i = Row_Min To Row_Max
        If WrkstTasks.Cells(i, Col_WkyEff) <> "" Then
            If WrkstTasks.Cells(i, Col_WkyEff) > 0 Then
                taskMw = 0.001 * Int(1000 * (0.2 * WrkstTasks.Cells(i, Col_WkyEff) + 0.0005))
                TaskDes = WrkstTasks.Cells(i, Col_Task)
                taskTrk = Left(WrkstTasks.Cells(i, Col_Track), 1)
                WrkstLog.Cells(r, 1) = taskTrk
                WrkstLog.Cells(r, 2) = taskMw
                WrkstLog.Cells(r, 3) = TaskDes
                If taskTrk = "A" Then
                    TrkAEff = TrkAEff + taskMw
                End If
                If taskTrk = "B" Then
                    TrkBEff = TrkBEff + taskMw
                End If
                spentMw = spentMw + taskMw
                r = r + 1
            End If
        End If
    Next i
    ' print total
    r2 = r
    WrkstLog.Cells(r2, 2) = spentMw
    WrkstLog.Cells(r2, 3) = "Total"
    ' print availability
    r2 = r2 + 1
    If spentMw <> 0 Then
        WrkstLog.Cells(r2, 2) = 100 * TrkAEff / spentMw
    Else
        WrkstLog.Cells(r2, 2) = 0
    End If
    WrkstLog.Cells(r2, 3) = "Track A load so far (in percentage)"
    
    r2 = r2 + 1
    
    If spentMw <> 0 Then
        WrkstLog.Cells(r2, 2) = 100 * TrkBEff / spentMw
    Else
        WrkstLog.Cells(r2, 2) = 0
    End If
    WrkstLog.Cells(r2, 3) = "Track B load so far (in percentage)"
    
    ' Bold Total and Availability rows
    WrkstLog.Range(Cells(r, 1), Cells(r2, 3)).Select
    Selection.Font.Bold = True
    

    '--- re-sort by time-spent in the task ---
    If r <> 1 Then
        Calculate
        'ActiveSheet.Unprotect
        Range(Cells(1, 1), Cells(r - 1, 3)).Select
        Selection.Sort Key1:=Range("B1"), Header:=False, Order1:=xlDescending, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
             DataOption1:=xlSortNormal
        'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        WrkstLog.Cells(1, 3).Select

        'Response = MsgBox("Copying report to clipboard. OK to proceed. Cancel will not copy.", vbOKCancel, "Copying report to clipboard")
        'If Response = vbOK Then
        If WrkstLog.Cells(7, 14) = True Then
            WrkstLog.Activate
            WrkstLog.Range(Cells(1, 2), Cells(r - 1, 3)).Select
            Selection.Copy
            WrkstLog.Cells(1, 3).Select
        End If
    End If
End Sub
```

Steps to Reproduce:
1. Click the form button that runs the macro

Actual Results:
1. Program crashes with assertion

Expected Results:
1. Execute the macro as before.


Reproducible: Always


User Profile Reset: Yes



Additional Info:
Crashing Version:

Version: 7.3.0.3 / LibreOffice Community
Build ID: 30(Build:3)
CPU threads: 4; OS: Linux 5.16; UI render: default; VCL: gtk3
Locale: pt-PT (en_GB.UTF-8); UI: en-GB
7.3.0-5
Calc: threaded

Working Version:
Version: 7.2.4.1 / LibreOffice Community
Build ID: 20(Build:1)
CPU threads: 4; OS: Linux 5.16; UI render: default; VCL: gtk3
Locale: pt-PT (en_GB.UTF-8); UI: en-GB
7.2.4-3
Calc: threaded

I'm using Arch Linux.