süz kodunda kolon hatası

[uguristanbul]

Değerli arkadaşlar
Private Sub CommandButton1_Click()
Dim k As Range, ilk_adres As String, a As Long
Dim i As Long, syf As String
ListBox1.Clear
If TextBox1.Value = "" Then Exit Sub
ReDim myarr(1 To 12, 1 To 1)
For i = 1 To ComboBox1.ListCount - 1
If ComboBox1.Value <> "HEPSİ" Then
syf = ComboBox1.Value
Else
syf = ComboBox1.Column(0, i)
End If
Set k = Sheets(syf).Cells.Find(TextBox1.Value, , xlValues, xlWhole, , 1)
If Not k Is Nothing Then
ilk_adres = k.Address
Do
a = a + 1
ReDim Preserve myarr(1 To 12, 1 To a)
myarr(1, a) = ComboBox1.Column(0, i)
myarr(2, a) = k.Address(False, False)
myarr(3, a) = k.Value


Set k = Sheets(syf).Cells.FindNext(k)
Loop While ilk_adres <> k.Address And Not k Is Nothing
End If
If ComboBox1.Value <> "HEPSİ" Then Exit For
Next i
Set k = Nothing
Label3.Caption = "Kriterlere Uyan " & Format(a, "#,##0") & " Adet Veri Bulundu..!!"
If a > 0 Then
ListBox1.Column = myarr
Erase myarr
End If
End Sub
bu kod list boxta sadece 3 kolon listeliyor
peki listbox bütün klonları listelemesi için nasıl bir değişiklik yapmam gerekiyor
ltf acil cvp
saygılar