Definir rango de cuadro de lista por macro

amigos/as

Tengo un cuadro de lista de selección múltiple que se rellena por macro con los datos de una columna que está en otra hoja. El problema es que el rango no puede ser estático y ahora mismo lo rellena con todas las filas que tiene esa columna (incluidas las filas vacías). Tampoco debe mostrar la fila 1 porque contiene el título de esa columna.

La macro que tengo para rellenar ese cuadro de lista de selección múltiple es:

Function Cuadrodelista112_Cambiar()
Dim Msg As String
Dim i As Integer
Dim longArray As Integer
Dim aStrings() As String
longArray = -1
For i = 1 To 250
If Worksheets("Formulario").ListBoxes("Cuadro de lista 112").Selected(i) Then
longArray = longArray + 1
ReDim Preserve aStrings(longArray)
aStrings(longArray) = Worksheets("Formulario").ListBoxes("Cuadro de lista 112").List(i)
End If
Next i
Dim vItm As Variant
Dim str As String
If (Len(Join(aStrings, "")) = 0) Then
Else
For Each vItm In aStrings
str = vItm
Next vItm
FiltroCuadroDeLista112 (aStrings)
End If
End Function

Donde:

"Formulario" es la hoja donde tengo el cuadro de lista en cuestión

"Cuadro de lista 112" es el cuadro de selección múltiple que necesito rellenar con los datos.

"evaluaciónMedidasRepetititvas" es la hoja que contiene en la columna A los datos que tengo que traerme menos la fila 1 que es la del encabezado.