Данные из массива перенести в лист - VBA

Dim City, Dispatch As Variant
Dim Shop(4) As Variant
Dim A, S As Integer
Private Sub CommandButton1_Click()
If ListBox1 <> "" And ListBox2 <> "" And ListBox3 <> "" Then
A = InputBox("Ввените количество книг:")
         S = Cells(ListBox1.ListIndex + 2, 2) * A
Dispatch = Array(ListBox3.Text, ListBox2.Text, ListBox1.Text, Cells(ListBox1.ListIndex + 2, 2), A, S)
Else
MsgBox ("Выбраны не все значения")
End
End If
 
End Sub
 
Private Sub UserForm_Initialize()
City = Array("Воронеж", "Москва", "Курск", "Белгород")
Shop(O) = Array("Амиталь", "Техническая книга", "Книжный мир семьи")
Shop(l) = Array("Библеос", "Глобус", "Книжный мир")
Shop(2> = Аггау("Кнорус", "Дом книги")
Shop(3) = Array("Прометей", "Библиосфера")
For Row = 2 To 11
    With Me.ListBox1
         .AddItem
         .Column(0, .ListCount - 1) = Cells(Row, 1).Value
    End With
Next
ListBox2.List = City
 
End Sub
Private Sub ListBox2_Click()
ListBox3.Clear
ListBox3.List = Shop(ListBox2.ListIndex)
End Sub