Макросы в LibreOffice Calc

Function SumMultLine(range) as Variant      
Dim Doc As Object                           
Dim Sheet, Cell As Object                   
dim sumN,sumC, prN, prC as double       
dim g as integer                            
Doc = StarDesktop.CurrentComponent          
Sheet = Doc.Sheets.getByName("Лист4")   
 
prN = 1                                     
sumN = 0                                
prC = 1                                 
sumC = 0                                
    
for j = LBound(Range,1) to UBound(Range,1)  
for i = LBound(Range,2) to UBound(Range,2)  
if j mod 2 = 0 then                     
prC = prC*|!REG3XP3!>range(i,j)                 
end if                                      
next i                                    
if j mod 2 = 0 then                      
sumC = sumC + prC                       
end if                                      
prC = 1                                      
next j                                      
                                            
for j = LBound(Range,1) to UBound(Range,1)  
for i = LBound(Range,2) to UBound(Range,2)  
if j mod 2 = 1 then                     
prN = prN*|!REG3XP3!>range(i,j)                     
end if                                      
next i                                  
if j mod 2 = 1 then                         
sumN = sumN + prN                           
end if                                      
prN = 1                                     
next j                                      
                                            
g = j                                       
Cell = Sheet.getCellByPosition(g, 0)    
Cell.String = "Четных:"                       
Cell = Sheet.getCellByPosition(g, 1)     
Cell.String = sumC                      
g = j+1                                     
Cell = Sheet.getCellByPosition(g, 0)    
Cell.String = "Нечетных:"               
Cell = Sheet.getCellByPosition(g, 1)        
Cell.String = sumN                          
            
end function