Welcome to the forum!

If that works for you, then the UsedRange can be used to fill the List. e.g.
Private Sub UserForm_Initialize()  
  Dim r As Range

  GetOLTasks
  Set r = Sheet3.UsedRange
  ListBox1.ColumnCount = r.Columns.Count
  ListBox1.List = r.Value
End Sub
Tip: Paste code between code tags to keep structure. Click the # icon on reply toolbar to insert code tags.