VBA pro přidání řádku

Dobrý den, potřebuji pomoc, takto vypadá moje tabulka, například když přidám 2 řádek na konec své 1. tabulky, chci, aby mi vba pomohl udělat to samé pro tabulku níže (přidat 2 řádky na konec tabulky). Mým úkolem tedy bude pouze přidat řádky v 1. tabulce, tabulka pod všemi vygeneruje řádky automaticky na základě počtu řádků v 1. tabulce. toto jsou kódování, které jsem nyní použil k přidání řádku pro 1. tabulku. Doufám, že někdo může vyřešit tento problém za mě, thx.

Sub InsertNumRows()

ActiveCell.EntireRow.Copy

Dim Rng As Long

Application.DisplayAlerts = False
On Error Resume Next
Rng = InputBox("Zadejte požadovaný počet řádků.")
Při chybě GoTo 0
Application.DisplayAlerts = True

Pokud Rng = 0 Pak
MsgBox "Nezadali jste rozsah!"
Konec Sub

Jiný
Rozsah(ActiveCell.Offset(1, 0), ActiveCell.Offset(Rng, 0)).Vybrat
Select.EntireRow.Insert Shift: = xlDown
End If

End Sub [attachment]Capture 1.PNG[/attachment]