Try this.

Option Explicit
  
 Private Sub UserForm_Initialize()
Dim MyArray()   As String
     Dim i           As Long
ReDim MyArray(67 To 109, 1 To 2)
     For i = 67 To 109
         If Range("E" & i).Text <> "" Then
             MyArray(i, 1) = Range("E" & i).Text
             MyArray(i, 2) = Range("F" & i).Text
         End If
     Next
Me.ListBox1.List = MyArray
End Sub