Listbox anpassen / Werte übernehmen

Private Sub UserForm_Initialize()
Dim arr As Variant
Dim arrF() As Variant
Dim i As Long
Dim k As Long
Dim m As Long
arr = Range("A1", Cells.SpecialCells(xlCellTypeLastCell))
ReDim arrF(1 To UBound(arr, 2), 1 To 1)
For i = 1 To UBound(arr)
If arr(i, 10) = "x" Then
m = m + 1
For k = 1 To UBound(arr, 2)
ReDim Preserve arrF(1 To UBound(arr, 2), 1 To m)
arrF(k, m) = arr(i, k)
Next
End If
Next
If Not IsEmpty(arrF) Then
Listbox1.ColumnCount = UBound(arrF)
Listbox1.Column = arrF
End If
End Sub