Listbox1.rowsource değerinde hata

[truvaliman]

Merhaba arkadaşlar, aşağıdaki kodda rowsource değerini kullanmak istediğimde hata alıyorum, yazımında hata nerde bulamadım bi türlü?

Private Sub ListBox1_Click()
Sheets("Data").Select

Dim ilk, son

ilk = Range("q1").End(xlDown).Row
son = Range("q65536").End(xlUp).Row


ListBox1.RowSource = "Data!a" & ilk: J " & son"
ListBox1.ColumnCount = 9
ListBox1.ColumnWidths = 50 & ";" & 50 & ";" & 50 & ";" & 50 & ";" & 50 & ";" & 50 & ";" & 50 & ";" & 50 & ";" & 50
ListBox1.ColumnHeads = True

End Sub

 

[Orion1]

Buyurun.

ListBox1.RowSource = "Data!a" & ilk & ":J" & son