Populating selected range to listbox

I think you don't need a CommandButton click event to populate the ListBox.
Why not populate the ListBox with UserForm initialize event?

Place the below code into the UserForm Module.

Private Sub UserForm_Initialize()
Dim ws As Worksheet
Dim arr
Dim lr As Long
Set ws = Sheets("Sheet1")
lr = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
arr = Application.Index(ws.Cells, Evaluate("row(2:" & lr & ")"), Array(3, 4, 8, 9, 10, 12))
Me.ListBox1.List = arr
End Sub

I didn't scroll to the right on the sheet and missed those columns.
Replace the existing code with the following one.
The red colored numbers in the code are the column indexes which are to be populated in the ListBox.

Private Sub UserForm_Initialize()
Dim ws As Worksheet
Dim arr
Dim lr As Long
Set ws = Sheets("Sheet1")
lr = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
arr = Application.Index(ws.Cells, Evaluate("row(2:" & lr & ")"), Array(3, 4, 8, 9, 10, 12, 21, 22, 23, 24, 35, 38, 39))
Me.ListBox1.List = arr
End Sub

To view those columns in the ListBox, you will need to set the ColumnCount property to 13.
To do so, open the UserForm in design mode, select the ListBox and press F4 to open properties and locate ColumnCount and change it to 13. The existing ColumnCount is set to 6 so you can only view 6 columns in the Listbox.

Here is the file for your reference.

You're welcome VJ!
As I told you that you were required to set the ColumnCount property for the ListBox to view all the columns.

If that takes care of your original question, please mark your thread as Solved by selecting Thread Tools (just above your first post) --> Mark thread as solved.

You may also say thanks to those who have put their time and efforts to help you in this forum by clicking the Add Reputation link under their posts, another way to say thanks.