Problema al migrar de excel a LibreOficce cal

Por obligación he migrado a LibreOffice cal. Tenia un archivo excel con macros con una tabla de posiciones para llevar la clasificación de un torneo de fútbol. Uno de los problemas que he detectado es con una macro, cuyo texto en excel es:

Sub numero_de_equipos()
'
' 22/09/2006 por JLD
' Oculta o descubre filas de acuerdo al numero de equipos que participan
    Dim rngOculto As Range, rowFirstHide As Integer
    rowFirstHide = Sheets("parametros").Range("B6").Value
    Application.ScreenUpdating = False
    'ocultar filas en Tabla de Posiciones
    Sheets("Tabla de Posiciones").Select
    Rows.EntireRow.Hidden = False
    Range(Cells(rowFirstHide + 3, 1), Cells(43, 1)).EntireRow.Hidden = True
    [B1].Select
    'ocultar filas y columnas en Resultados
    Sheets("Resultados").Select
    Rows.EntireRow.Hidden = False
    Columns.EntireColumn.Hidden = False
    Range(Cells(rowFirstHide + 3, 1), Cells(43, 1)).EntireRow.Hidden = True
    Range(Cells(1, rowFirstHide + 3), Cells(1, 43)).EntireColumn.Hidden = True
    [B1].Select
    Sheets("parametros").Select
    Application.ScreenUpdating = True
End Sub

Al abrirlo con LibreOffice el unico texto que aparece es:

Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Option Explicit
Private Sub ComboBox1_Change()
    Call numero_de_equipos
End Sub

Se trata de un desplegable con números. Al seleccionar un numero, solo aparece ese numero deequipos de una relación de equipos. Es decir, si marcamos 3, solo aparecen los tres primeros equipos de nuestra lista.

Al abrirlo en LibreOffice, no contiene los mismos valores que en Excel y si intentero realizar una sellecion diferente a la que aparece por defecto, me da un error y el programa se cierra.

¿Cuál seria el texto de la macro que debería aparecer en LibreOffice para realizar la misma operación?