Populate Listbox With Selected Worksheet Columns

How can I adapt the following code to only show Columns; A, B, E, F and J from Sheet(3) into a Listbox called lbx_LiveAllocations?

As it stands, this code is only adding Column A. My only alternative has been to add all columns on the worksheet to the listbox, however there's a lot of unneeded information between.

Code:

Dim LR As Long
Dim ctrl As Object
Dim i As Long
Dim dic As Object
Dim arr As Variant

Set dic = CreateObject("Scripting.Dictionary")

[Code] ........

Erase arr