Макросы вставки строки сверху/снизу... - VBA

Формулировка задачи:

Здравствуйте! Прошу вас помочь, сам я точно не справлюсь!! В таблице, скажем, из 4-х столбцов (A,B,C,D) необходимо добавить строку сверху. При этом по столбцу A происходит автоматическая пере-нумерация. По столбцу D считается произведение B и C. То же самое для добавления строки снизу. Прикрепил файл, содержащий таблицу. В силу своих возможностей в ней сделал макросы для Удаления строк. А со Вставками большой ступор. Смог только частично написать вставку снизу, но как сделать автоматическую нумерацию и формулу не знаю. Заранее благодарен!

Решение задачи: «Макросы вставки строки сверху/снизу...»

textual
                            Листинг программы 
                        

                            Sub MakeSpace()
 
    Const ГЋГЎГ°Г*ГЎГ®ГІГ*ГІГј_Г±ГІГ°Г®ГЄ_Г¬ГЁГ*ГЁГ¬ГіГ¬ = 800
    Const Г‚Г±ГІГ*ГўГЁГІГј_Г±ГІГ°Г®ГЄ_ГЇГ®Г±Г«ГҐ_Г§Г*ГЇГ®Г«Г*ГҐГ*Г*Г®Г© = 2
    
    Dim i As Long, j As Long, cell As Range
    
    Application.ScreenUpdating = False
    For i = ГЋГЎГ°Г*ГЎГ®ГІГ*ГІГј_Г±ГІГ°Г®ГЄ_Г¬ГЁГ*ГЁГ¬ГіГ¬ To 3 Step -1
        Set cell = Cells(i, 1)
        If Not IsEmpty(cell) Then
            For j = 1 To Г‚Г±ГІГ*ГўГЁГІГј_Г±ГІГ°Г®ГЄ_ГЇГ®Г±Г«ГҐ_Г§Г*ГЇГ®Г«Г*ГҐГ*Г*Г®Г©
                cell.Insert Shift:=xlDown
            Next j
        End If
    Next i
    Application.ScreenUpdating = True
 
End Sub
                        