행 추가를위한 VBA

안녕하세요, 도움이 필요합니다. 예를 들어 첫 번째 테이블 끝에 2개의 행을 추가할 때 vba가 아래 테이블에 대해 동일한 작업을 수행하도록 도와주고 싶습니다. 테이블 끝). 그래서 내 일은 첫 번째 테이블에 행을 추가하기만 하면 됩니다. 모든 테이블은 첫 번째 테이블의 행 수에 따라 자동으로 행을 생성합니다. 첫 번째 테이블의 행을 추가하는 데 사용한 코딩입니다. 누군가 나를 위해 이 문제를 해결할 수 있기를 바랍니다.

하위 삽입NumRows()

ActiveCell.EntireRow.Copy

길이만큼 희미한 Rng

Application.DisplayAlerts = False
오류에 대한 다음 재개
Rng = InputBox("필요한 행 수를 입력하세요.")
오류 발생시 0
Application.DisplayAlerts = 참

Rng = 0이면
MsgBox "범위를 지정하지 않았습니다!"
서브 종료

다른
범위(ActiveCell.Offset(1, 0), ActiveCell.Offset(Rng, 0)).Select
Selection.EntireRow.Insert Shift:=xlDown
END IF

End Sub [첨부파일]캡처 1.PNG[/첨부파일]