Переделать VBA+Excel под LibreOffice

Есть код VBA+Excel, необходимо сам файл и макрос переработать под LibreOffice Calc. Файл и код макроса прилагается.

Sub psk()
    Dim dates()
    Columns("A:A").Select
    dates() = Application.Transpose(Range(ActiveCell, Cells(Rows.count, ActiveCell.Column).End(xlUp)))

    Dim summa()
    Columns("B:B").Select
    summa = Application.Transpose(Range(ActiveCell, Cells(Rows.count, ActiveCell.Column).End(xlUp)))
    
    Dim m As Integer
    m = UBound(dates)
    
       
    bp = 30
    cbp = Round(365 / bp)
    
    ReDim Days(m)
    For k = 2 To m
        Days(k) = dates(k) – dates(2)
    Next
    
    ReDim e(m)
    ReDim q(m)
    
    For k = 2 To m
        q(k) = Days(k) \ bp
        e(k) = (Days(k) Mod bp) / bp
    Next
    
    i = 0
    x = 1
    x_m = 0
    s = 0.000001
    Do While x > 0
        x_m = x
        x = 0
        For k = 2 To m
            x = x + summa(k) / ((1 + e(k) * i) * ((1 + i) ^ q(k)))
        Next
        i = i + s
    Loop
    If x > x_m Then
        i = i – s
    End If
    
    psk = Round(i * cbp, 5)
    
    Cells(3, 7).Value = psk
    
End Sub