Delete pages

[luis gaspper]

Dear experts,
Just a small change required if possible
I have the following code that works well at this link
https://eileenslounge.com/viewtopic.php?f=30&t=35095
I need to add a condition to Delete the following pages In the case if the data That has been transferred Less than or equal to 25 rows.
how should I do it? ... Attachment will make the issue more clearer.
Thank you in advance

[HansV]

If nobody else replies, I will look at it later.

[luis gaspper]

Thanks very much for the reply.
thanks in advance

[HansV]

Change the line

Code: Select all

    n = Application.Ceiling(m  / 25, 1)

to

Code: Select all

    n = Application.Ceiling((m - 1) / 25, 1)

[luis gaspper]

Thank you so much for your help ... this has Really helped me.
Regards