Add values in multicolumn list box.

Try this:-

Private Sub CommandButton1_Click()
Me.ListBox1.ColumnCount = 2
With ActiveSheet.Shapes("Drop Down 5").OLEFormat.Object
    Me.ListBox1.AddItem .List(.ListIndex)
End With
With ActiveSheet.Shapes("Drop Down 6").OLEFormat.Object
    Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = .List(.ListIndex)
End With
End Sub