ListBox1.ColumnCount = 11
ListBox1.ColumnWidths = "20;55;60;140;65;65;50;50;65;65;65"
ListBox1.ColumnHeads = True
ListBox1.RowSource = "A7:K" & [A65536].End(3).Row + 1
UserForm_Initialize içindeki alttaki kodu Next satırının altına almalısınız.