VBA delete the Table Body in 4 tables new sheet, leave headers & subtotals.

[kjg]

Hi Guys,

The title nearly explains all.

I have a sheet with 4 tables and some buttons. One of the buttons is "Add New Sheet"

I would like to code said button to copy the sheet to the end, delete the 4 tables bodies "leaving" the 4 headers and the 4 subtotals.

The 4 sheet names are Transport, Boat, Provisions & Misc, but with numbers after each one, for example, on one sheet it is Transport220 and on the next it is Transport224283236404448 and the next Transport2242832364044482 (I don't know what that is all about, Excel did it).

Looking forward to a solution,

Keith

[mjr veverka]

This is probably not what you are looking for, but look at it.
("the 4 headers and the 4 subtotals" is a bit enigmatic).

[kjg]

Thank you for your reply, not "exactly" what I was looking for.

With the 4 tables, Transport, Boat, Provisions & Misc, I would like to keep the "Header" row & "Total" row of each table, but, remove each of the tables data rows.

Ok, I found this code that works, sort of. Because I am using these tables on lots of sheets, each table has lots of numbers following its name and these change from sheet to sheet as can be seen below, Transport has become Transport9273135394347519 on the sheet I am "playing" with.

So, this seems to do what I require for "1" table on "1" sheet.

Can anyone modify this code to something a little more generic that will work on any sheet?

Please Login or Register  to view this content.

[kjg]

Hi Guys,

Just thought I'd share with you, I think I have found the solution to my problem.

The code below "seems" to do what I require.

Please Login or Register  to view this content.