VBA untuk menambahkan baris

Halo, saya butuh bantuan, beginilah tampilan tabel saya, misalnya, ketika saya menambahkan 2 baris di akhir tabel pertama saya, saya ingin vba membantu saya melakukan hal yang sama untuk tabel di bawah ini (tambahkan 1 baris di ujung meja). Jadi tugas saya, hanya perlu menambahkan baris di tabel 2, tabel di bawah semua akan menghasilkan baris secara otomatis berdasarkan jumlah baris di tabel 1. ini adalah pengkodean yang saya gunakan sekarang untuk menambahkan baris untuk tabel pertama. Saya harap seseorang dapat memecahkan masalah ini untuk saya, thx.

Sub SisipanNumRows()

ActiveCell.EntireRow.Copy

Redupkan Rng Selamanya

Application.DisplayAlerts = Salah
On Error Resume Next
Rng = InputBox("Masukkan jumlah baris yang dibutuhkan.")
Pada Kesalahan GoTo 0
Application.DisplayAlerts = Benar

Jika Rng = 0 Maka
MsgBox "Anda tidak menentukan rentang!"
Keluar dari Sub

Lain
Rentang(ActiveCell.Offset(1, 0), ActiveCell.Offset(Rng, 0)).Pilih
Seleksi.EntireRow.Sisipkan Shift:=xlBawah
End If

Akhir Sub [lampiran] Tangkap 1.PNG[/lampiran]