通过VBA插入行时上一个单元格的格式

Question

我是宏观世界的新手，并且遇到两个问题 首先，我希望下面的宏能够通过复制上面的单元格/表格的格式来插入行

Sub InsertRow()
    Dim Rng As Range, Num As String

    On Error Resume Next

    Set Rng = Application.InputBox(prompt:="Please Select Start Row ", Title:="Insert Rows", Type:=8)

    If Split(Rng.Address, "$")(2) < 1 Then
        'MsgBox "Please choose a Number Greater than 1"
        Exit Sub
    End If

    Num = Application.InputBox(prompt:="Please Insert Number of Rows", Title:="Insert Rows", Type:=1)
    If Num = False Then Exit Sub
    Rng.Resize(Num).EntireRow.Insert
End Sub

第二部分是，我如何让宏在同一工作表的不同表中添加超过1行，因为上面的宏仅对连续的行执行操作。