Создание программных модулей VBA для обработки табличных данных MS Excel

[AngelA 94]

Не могу составить коды к 3, 4, 6 и 7 заданиям.
1. Создать таблицу, которая содержит сведения о продаже книг.
Структура таблицы:
- название книги;
- фамилия автора;
- номер магазина;
- цена;
- продано;
- остаток.
2. Предусмотреть возможность добавления в таблицу произвольного количества строк.
3. Определить:
• количество проданных книг в заданном магазине;
• суммарную стоимость всех не проданных книг;
• среднюю цену одной книги.
4. Создать на 2 листе книги таблицу, которая содержит суммарную стоимость книг, проданных каждым магазином
5. Сортировать данные в таблице по заданному столбцу.
6. Уменьшить цену на книги, у которых остаток превышает количество проданных более чем в 2 раза.
7. Удалить сведения о книгах с ценой ниже заданной.

[AngelA 94]

По идее этот код должен определять количество проданных книг, где ошибка?

Private Sub CommandButton1_Click()
If OptionButton1 = True Then Fio = ListBox1.Text Else Fio = TextBox1
n = 2: pr = 0
Do While Cells(n, 3) > ""
If Cells(n, 3) = Fio Then
Cells(n, 3).Select
pr = 1
Exit Do
End If
n = n + 1
Loop
End Sub
Private Sub CommandButton2_Click()
Prodano.Hide
End Sub
Private Sub UserForm_Activate()
n = 2
Do While Cells(n, 3) > ""
ListBox1.AddItem Cells(n, 3)
n = n + 1
Loop
ListBox1.ListIndex = 0
Cells(n, 5) = TextBox1.Text
n = 2
Do While Cells(n, 3) > ""
m = ListBox1.ListCount
pr = 1
For j = 1 To m
ListBox1.ListIndex = j - 1
If Cells(n, 2) = ListBox1.Text Then pr = 0
Next j
If pr = 1 Then ListBox1.AddItem Cells(n, 2)
n = n + 1
Loop
ListBox1.ListIndex = 0
TextBox1.Text = ""
End Sub