Need Help on VBA Code of listbox validation

Hi experts

i need help on VBA code fine tuning as per requirement

i want only list out only B & D not C list box , In D Column list out first Billable then Non-Billable if possible

Private Sub UserForm_Initialize()
Dim say As Integer
Application.ScreenUpdating = False
say = WorksheetFunction.CountA(Worksheets("RawData").Range("A:A"))
ListBox1.RowSource = "Rawdata!B1:D" & say
ListBox1.ColumnCount = 9
ListBox1.ColumnWidths = "60;60;60;60;60;60;60;60;60"
ListBox1.MultiSelect = fmMultiSelectMulti
Application.ScreenUpdating = True
End Sub


find the attachment