Prüfung in Combobox

Private Sub ComboBox2_Change()
Dim arrList(), rngC As Range, j As Integer, n As Integer
ReDim arrList(1 To WorksheetFunction.CountIf(Columns(3), ComboBox2.Value), 1 To 3)
For Each rngC In Range(Cells(3, 1), Cells(Rows.Count, 1).End(xlUp))
If rngC.Offset(, 2) = ComboBox2.Value Then
n = n + 1
For j = 0 To 2
arrList(n, j + 1) = rngC.Offset(, j)
Next
End If
Next
With ListBox1
.ColumnCount = 5
.ColumnWidths = "4cm;4cm;4cm;4cm;4cm"
.List = arrList
End With
End Sub