Option explicit
Dim f As Worksheet, Tbl1(), Tbl2
Dim j&, k&, i&, col&
Private Sub UserForm_Initialize()
ListBox1.ColumnWidths = "60;60;60;60;60;60;60;60;60;60;60;60"
ListBox1.ColumnCount = 12
Set f = Sheets(2)
Tbl1 = f.Range("D2:AV" & f.[AV65000].End(xlUp).Row).Value
ReDim Tbl2(1 To UBound(Tbl1), 1 To 45)
j = 0
For Each k In Array(1, 3, 4, 5, 6, 7, 16, 36, 41, 43, 44, 45)
j = j + 1
For i = 1 To UBound(Tbl1): Tbl2(i, j) = Tbl1(i, k): Next i
Next k
ListBox1.List = Tbl2
For i = 0 To ListBox1.ListCount - 1
For col = 1 To 12
If IsNumeric(ListBox1.List(i, col)) Then _
ListBox1.List(i, col) = Format(ListBox1.List(i, col), "0.00")
Next col
Next i
End Sub