VBA do dodawania wiersza

Witam, potrzebuję pomocy, tak wygląda moja tabela, na przykład, kiedy dodaję 2 wiersze na końcu mojej pierwszej tabeli, chcę, aby vba pomogła mi zrobić to samo dla poniższej tabeli (dodaj 1 wiersze na końcu koniec tabeli). Więc moja praca będzie polegać na tym, że wystarczy dodać wiersze w pierwszej tabeli, tabela poniżej wszystkich wygeneruje wiersze automatycznie na podstawie numerów wierszy w pierwszej tabeli. to kodowanie, którego użyłem teraz, aby dodać wiersz dla pierwszej tabeli. Mam nadzieję, że ktoś może rozwiązać ten problem za mnie, thx.

Sub InsertNumRows()

ActiveCell.Cały wiersz.Kopiuj

Dim Rng tak długo

Application.DisplayAlerts = False
On Error Resume Next
Rng = InputBox("Wprowadź liczbę wymaganych wierszy.")
Przy błędzie GoTo 0
Application.DisplayAlerts = True

Jeśli Rng = 0 Wtedy
MsgBox "Nie określiłeś zakresu!"
Exit Sub

Więcej
Zakres(ActiveCell.Offset(1, 0), ActiveCell.Offset(Rng, 0)).Wybierz
Selection.EntireRow.Insert Shift:=xlDown
End If

Koniec napisu [załącznik]Przechwyć 1.PNG[/załącznik]