Listbox Nesnesinde Sütunlara İsim Yazma

Arkadaşlar merhaba,

Aşağıdaki gibi bir kodum buradaki hocalarım sayesinde formülü sağolsunlar verdiler. Şimdi ise bu kolonlara 2. kolona tarih, 3.kolona cari kod gibi sütun adı vermek istiyorum ama yapamadım. Tb3ListDetay.ColumnHeads = True yapınca ilk kolon sabitleniyor ama içi boş geliyor. Yardımlarınızı rica ederim

Private Sub Tb3ListBox2_Click()
Dim x As Long
Dim s As Worksheet
Set s = ThisWorkbook.Sheets("Satışlar")

Tb3TxbLogicalref = Tb3ListBox2.List(Tb3ListBox2.ListIndex, 2)

Tb3ListDetay.Clear

If s.AutoFilterMode Then s.AutoFilterMode = False
x = s.Cells(Rows.Count, 2).End(3).Row
On Error Resume Next
If Tb3BaslangicTarihi <> "" Then
bas = CLng(CDate(Tb3BaslangicTarihi.Text))
Else: bas = CLng(WorksheetFunction.Min(s.[A:A]))
End If
If Tb3BitisTarihi <> "" Then
bit = CLng(CDate(Tb3BitisTarihi.Text))
Else: bit = CLng(WorksheetFunction.Max(s.[A:A]))
End If

For Each isim In s.Range("Satışlar!b3:b" & x - 1)
If isim Like Tb3TxbLogicalref _
And s.Cells(isim.Row, 1) >= bas _
And s.Cells(isim.Row, 1) <= bit _
And isim.Offset(0, 3).Value = ThisWorkbook.Sheets("Tanım").[C4].Value Then
' bu alana ne yaptıysam başlangıç ve bitiş tarihli filtreleyemedim
liste = Tb3ListDetay.ListCount
Tb3ListDetay.AddItem -1
Tb3ListDetay.List(liste, 1) = isim.Offset(0, -1).Text
Tb3ListDetay.List(liste, 2) = isim.Offset(0, 0)
Tb3ListDetay.List(liste, 3) = isim.Offset(0, 1)
Tb3ListDetay.List(liste, 4) = isim.Offset(0, 2)
Tb3ListDetay.List(liste, 5) = isim.Offset(0, 3)
End If
Next

Tb3ListDetay.ColumnCount = 5
Tb3ListDetay.ColumnHeads = False
Tb3ListDetay.ColumnWidths = "20;50;50;50;50;80"
If Tb3ListDetay.ListCount > 0 Then Tb3ListDetay.Selected(Tb3ListDetay.ListCount - 1) = True

End Sub