Clear many empty tables of data

Greetings to all
I have data in data sheet.range("A8:BF" & Last row)
I have, for example, in sheet SALRY number 400 fixed table and transfer data to it from the data sheet
Work requirements requires from time to time to change this number, for example, to 300 table

I want to clear all the empty tables that do not contain data
Attached example sample
Thanks advanced for help

Please Help

Please Help

Please help me in this topic

Any help in this topic please

Try this:

Please Login or Register  to view this content.

My dear sir, ikboy
good greeting
Thank you very much to reply and thank your patience
I have tested the code sender and works more than excellent
take up your hat respect and appreciation for this wonderful effort

Allow me dear sir Here's the clarifications

In Example five rows between the tables
This is a special five rows signatures of Messrs specialists
I wanted the signal only is it the signatures of area

Regarding Clear serial numbers
I want to keep the last a complete table even if not completed data
In order to print a the workbook as required
In the sense that if the data transferred to the last table less than 20 statement
The rest are cleared serial numbers until end of the table

Regarding the row No. 34 "Total of the above"
The existence of this row down signatures last table nonessential for two reasons

*** the last table ends with the signatures of Messrs specialists
*** All tables here fixed .... I hope that the idea is clear
Thank you again for your attention.... wish you a happy life

My dear sir, ikboy
welcome
sorry for being late
We approached the goal killer
Regarding the five rows
This signatures that represent five rows fixed
And therefore must delete this line of code for multiple signatures as the example attached
Thanks advanced for help

Please Login or Register  to view this content.

Try this:

Please Login or Register  to view this content.

My dear sir, ikboy
welcome
Despite the difficulty of the code
I have learned a lot from you
With the implementation the code ... delete all the data from the data sheet
But I can not modification
A final attempt to this topic
I've added the abbreviated code in Example attached

Is it possible modification depending the following conditions
The first condition
If data transmitted from the data sheet is less than or equal to 20 statement
tables delete the rest of the beginning of row No. 34 to the last row in the workbook

Second condition
If data transmitted from the data sheet larger than 20 statement
delete the rest of the table after another table until the end of the workbook
With serial numbers from the Clear after another row with data until the last table
Thanks advanced for help
Kind regards

My dear sir, ikboy
welcome
Thank you for your attention and patience you very much
Here are some modifications were conducted successfully
Simple Note after asking for permission
Before the end, please add a condition to delete the last row if the data ended at an integer number divisible by 20 without breaking Order a print the workbook
Thanks advanced for help
Kind regards

My dear sir, ikboy
You are a great magician
My happiness is that I have the honor of your brother and dear friend
Who taught me characters I became a slave to him
Allow me first final addition
Thanks advanced for help

My dear sir, ikboy
Welcome
The end of each work .... and the end of this topic collection All tables
Add in Example formulas to collect tables
How you can add these formulas to automatically collect All tables
Is it possible to copy formats in the same sheet formats Source
Thanks advanced for help

My dear sir, ikboy
Welcome
I have a problem page breaks, what is the way
How can insert a page break and set the the scope of the print area

It helps copied formats of the sheet to print the source worksheet format
I want to copy all the formats of the row when grabbed into salry sheet
the same, font, Column Width, Row Height ,font color, font name
Thanks advanced for help

My dear sir, ikboy
Best Regards
Thank you for a wonderful solution
Thank you for this wonderful effort
Thank you for your patience with me
Here's the code without debug message
wish you more progress and prosperity and happy life
I'm very pleased to meet you

Please Login or Register  to view this content.

My dear sir, ikboy
welcome
Sorry to go back again
Sorry for the delay to a problem in my computer
I've added code to print workbook under the name "PRINT_ALL" will insert the code
to convert the numbers to ABC and place it in the required cells in the last table and Clear after printing
Is it possible to add it to operate automatically without putting it in a separate Module

I want to insert code to convert numbers to ABC down the last table directly in the two cells C & D
Thanks advanced for help

My dear sir, ikboy
welcome
I do not know what is the reality of the problem
I think the problem lies in this line of code line(12)
Please delete the row No. 81 and noted the result
Thanks advanced for help

Please Login or Register  to view this content.

My dear sir, ikboy
welcome
I managed to solve the problem and became PRINT_ALL code works wonderfully
To work must be merge cells A, B and C in the " Total " row and also in the row " Total of above "
Thanks advanced for help

My dear sir, ikboy
welcome
wish Please complete this topic
Thanks advanced for help

My dear sir, ikboy
welcome
So sorry of what had happened in your computer
But the code "PRINT_ALL" works wonderfully
You are VIP Enjoying a wonderful intelligently
Thank you my dear friend on this creativity
wish you a happy life

My dear sir, ikboy
welcome
Please dear friend
In relation to column B will be hidden
I want to start signatures in cell C
How can the distribution of the spaces between the signatures for the general appearance
I have tried to make modifications but to no avail
Example without code "PRINT_ALL"
Thanks advanced for help

My dear sir, ikboy
welcome
But until now, I do not know how to activate the PRINT_ALL code to run automatically
once the data transfer source of the sheet without button
Thanks advanced for help

My dear sir, ikboy
welcome
I've tested the latest modification
But There is a problem in signatures outside of the print range
Thanks advanced for help

Thank you very much Mr. ikboy for this fascinating solution
Thank you very much for these great efforts
Thanks a lot for great and wonderful help
You're a great man
wish you a happy life

My dear sir, ikboy
welcome
Sorry for the inconvenience again
please I want to start signatures from the 4 row down the table
Because it has been added to the line in the code "PRINT_ALL"
I have tried to Some modifications, but to no avail
Thank you so much

My dear sir, ikboy
Kind regards

Thank you very very much for your interest in
been modified code "PRINT_ALL" to add two lines down the table
Please dear friend
Note me movement code would need a magic touch of genius to you dear friend
Signatures in order to start from the 4 row
with a mind to be in the center horizontally and vertically

Excuse me dear friend to my question about the re-code "PRINT_ALL" in Post No. 33
I mean you can merging your code with the code "PRINT_ALL" to give the print command directly instead of implementing the code on each Alone
Thanks advanced for help

My dear sir, ikboy
Kind regards
The subject of the most important topics in my life
Thank you dear friend
wish you more happiness and progress
To the meeting in other works