Macro to Delete x Rows from All Tables on Sheet

[captainxcel]

Hello and Thanks in advance. I use the following code to add one or more rows to all tables in a worksheet (the background is that I have a worksheet with over 100 tables that needs a 1 for 1 row count correspondence with another table). How would I modify the code in order to delete one or more rows from all tables in the worksheet?
Thanks

Sub addSomeRowsToAllTablesOnSheet()

Dim tbl As ListObject
Dim NewRow As ListRow
Dim i As Integer
Dim new_rows As Integer

new_rows = InputBox("How many row(s) would you like to add to each table:", 1)

For i = 1 To new_rows
For Each tbl In Worksheets("Test").ListObjects
    Set NewRow = tbl.ListRows.Add
Next tbl
Next i

End Sub

 

[igold]

You did not say where you want the rows removed from (first row, last row, etc). How about this to remove rows from the last row and up...

Sub deleteSomeRowsToAllTablesOnSheet()

    Dim tbl As ListObject
    Dim NewRow As Long
    Dim i As Integer
    Dim new_rows As Integer
    
    new_rows = InputBox("How many row(s) would you like to delete from each table:", 1)
    
    For i = 1 To new_rows
    For Each tbl In Worksheets("Test").ListObjects
        NewRow = tbl.ListRows.Count
        tbl.ListRows(tbl.ListRows.Count).Delete
    Next tbl
    Next i

End Sub

 

[captainxcel]

Good point!. Your assumption was correct - I do want the rows to come off of the bottom of the table. I'll try this out and mark your reply. Thanks!

 

[captainxcel]

That works great. Thanks again! Needed that count to do it. Makes sense.

 

[igold]

You're welcome. I was happy to help. Thanks for the feedback.

 

[igold]

I was working with what you had, but this line can be deleted...

NewRow = tbl.ListRows.Count

 

[captainxcel]

OK - Great. Will delete the extra code.

 

[igold]

How about one code that does both, delete or add...

Sub addORdeleteSomeRowsToAllTablesOnSheet()

    Dim tbl As Object
    Dim new_rows As Integer
    Dim rng As Range
    
    new_rows = InputBox("How many row(s) would you like to add/delete from each table:" _
        & vbNewLine & vbNewLine & "Postive number to add -> 3 or +3" & vbNewLine & _
        "Negative number to delete -> -2" & vbNewLine, "ADD or DELETE LINES", 1) + 1
    
    For Each tbl In Worksheets("Test").ListObjects
        Set rng = Range(tbl & "[#All]").Resize(tbl.ListRows.Count + new_rows, tbl.ListColumns.Count)
        tbl.Resize rng
    Next tbl
  
End Sub

 

[captainxcel]

Wow. This is great. Thank you. Was out of the office for a couple of days so sorry for the late reply. Appreciate your help on this.

 

[igold]

I was happy to help. I thought of resize while doing something else so I thought I could apply it here...

Thanks for the update.