VBA per l'aggiunta di righe

Ciao, ho bisogno di aiuto, ecco come appare la mia tabella, ad esempio, quando aggiungo 2 righe alla fine della mia prima tabella, voglio che vba mi aiuti a fare la stessa cosa per la tabella seguente (aggiungi 1 righe al fine della tavola). Quindi il mio lavoro sarà, ho solo bisogno di aggiungere righe alla prima tabella, la tabella sottostante genererà tutte le righe automaticamente in base al numero di righe nella prima tabella. sono la codifica che ho usato ora per aggiungere la riga per la prima tabella. Spero che qualcuno possa risolvere questo problema per me, grazie.

Sub InserisciNumRighe()

ActiveCell.EntireRow.Copy

Dim Rng Finché

Application.DisplayAlerts = False
On Error Resume Next
Rng = InputBox("Inserisci il numero di righe richieste.")
On Error GoTo 0
Application.DisplayAlerts = Vero

Se Rng = 0 Allora
MsgBox "Non hai specificato un intervallo!"
Exit Sub

Altro
Intervallo(Offset.Cell.Attiva(1, 0), Offset.Cell.Attiva(Rng, 0)).Seleziona
Selection.EntireRow.Insert Shift:=xlDown
End If

End Sub [allegato]Cattura 1.PNG[/allegato]