Zeilennummer in Listbox einfügen

Sub Listbox1_fuellen()
Dim lLastRow As Long
With Worksheets("Tabelle1")
lLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
arrData = .Range(.Cells(1, 1), .Cells(lLastRow, 12)).Value
End With
With ListBox1
.Clear
.ColumnCount = 12 '12
.ColumnWidths = "3,3cm;4,0cm;2,0cm;3,0cm;3,5cm;3,0cm;3,0cm;5,5cm;4,8cm;2,1cm;2,3cm"
'     A     B     C     D     E     F     G     H     I     J     K    _
L     M     N     O
.List = arrData
End With
End Sub