طلب تعديل على كود listbox

[M.NHAKAMI]

السلام عليكم 

استفسار عندي الكود التالي يجلب البيانات من الشيبت من الصف الأول إلى أخر صف به نص في العمود

طلبي انا اريده لو تكرمتم مالتعديل الذي اجريه عالكود بحيث يظهر لي بيانات الشيت في listbox  حيث يبدأ من الصف 59

الي نهاية الصفوف التي بها بيانات 

Me.ListBox6.ColumnCount = 3
Me.ListBox6.ColumnWidths = "10;50;200"

lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 0 To lr - 1
b = i + 1
Me.ListBox6.AddItem
Me.ListBox6.List(i, 1) = Sheets("level1").Cells(b, 1)
Me.ListBox6.List(i, 2) = Sheets("level1").Cells(b, 2)
Next i

 

المصنف1.xlsm

[الرائد77]

Private Sub CommandButton1_Click()
Me.ListBox6.ColumnCount = 3
Me.ListBox6.ColumnWidths = "10;50;200"

lr = Cells(Rows.Count, 1).End(xlUp).Row

For i = 59 To lr - 1
b = i
Me.ListBox6.AddItem
Me.ListBox6.List(b - 59, 1) = Sheets("level1").Cells(b, 1)
Me.ListBox6.List(b - 59, 2) = Sheets("level1").Cells(b, 2)
Next i
End Sub

تفضل. يمكن أن تستغني عن b . و تضع i فقط. تركتها لاووضح لك التعديل على كودك. القائمة تبدأ من  الصف 59.
 

المصنف1.xlsm

[M.NHAKAMI]

اخ رائد توجد مشكله بسيطه بالكود عند الضغط على الزر مره اخري او اضغط زر اخر لاظهار شيت ثاني تزيد المساحات الفارغه اسفل الليست بوكس هل ممكن اضافه سطر مسبق لحلقة الدوران حيث يعمل لليست بوكس مسح محتويات ثم يضيف المحتويات الجديده لان البيانات احتاج جلبها اكثر من شيت  الملف المرفق فيه اظهار اكثر من شيت 

المصنف1.xlsm

[الرائد77]

Private Sub CommandButton1_Click()
Me.ListBox6.ColumnCount = 3
Me.ListBox6.ColumnWidths = "10;50;200"
Me.ListBox6.clear
lr = Cells(Rows.Count, 1).End(xlUp).Row

For i = 59 To lr - 1
b = i
Me.ListBox6.AddItem
Me.ListBox6.List(b - 59, 1) = Sheets("level1").Cells(b, 1)
Me.ListBox6.List(b - 59, 2) = Sheets("level1").Cells(b, 2)
Next i
End Sub

Me.ListBox6.clear

[M.NHAKAMI]

الشكر لك اخ رائد الكود تم تجربته رائع جدا