Я написал макрос в LibreOffice Calc, и он может работать правильно. Но если я закрою файл и снова открою, он всегда показывает#NULL! вместо правильного значения. Что мне здесь не хватает?

Мой код макроса

Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Function Calculate(CalType As String) As Double
'
' Calculate Macro
'

Dim i As Integer
Calc = 0

i = 1

Do While Not IsEmpty(Cells(i, 2))
    If (Cells(i, 3).Value = CalType And (Cells(i,2) = "A" Or Cells(i,2) = "B")) Then
        Calculate = Calculate + Cells(i, 4).Value
    ElseIf (Cells(i, 3).Value = CalType And Cells(i,2) = "C") Then
        Calculate = Calculate - Cells(i, 4).Value
    End If
    i = i + 1
Loop

'
End Function

Вызывающая функция будет что-то вроде=Calculate(J6)

Файл сохранен как.ods формат.