I have a spreadsheet with multiple tabs and multiple tables on each tab. I want to add a button that adds a row to the bottom of a table and shifts the worksheet down so that the table doesn't run into the tables below.
I have used a generic code found somewhere else on stack to add a row and then assigned it to a button, and it worked beautifully, but want to include a function to add a row to the whole sheet below the table. What do I add to the code to shift the sheet down? Thanks in advance!

```
Private Sub InsertRowsInTable(ByVal targetTableName As String)

    ' Ask user how many rows to ask
    Dim rowsToAdd As Variant
    rowsToAdd = InputBox("How many rows would you like to add?", "Insert Rows", 1)

    ' If user didn't input anything, default to 1
    If rowsToAdd = vbNullString Then rowsToAdd = 1

    Dim targetTable As ListObject
    Set targetTable = Range(targetTableName).ListObject

    ' Resize the table to add rows
    targetTable.Resize targetTable.Range.Resize(targetTable.Range.Rows.Count + rowsToAdd)

End Sub```

```