Формат предыдущей ячейки, когда я вставляю строку через 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 строки в разные таблицы на одном листе, так как макрос, приведенный выше, выполняет действие только для последовательных строк.