Macro to data Rows on all sheets except Index and Email

I have tried to write code to find last data before text like "Total" in Col A add 15 rows to this and then delete from this row up to 1 row before text like "Total"

No rows are being deleted

I need this to be applied to all sheets except sheet "Index" and Email"


See my code below

Please Login or Register  to view this content.

It would be appreciated if someone could amend my code

My Apologies for being unclear

I want to find the last row containing data above text like "Total" for e.g. 25 Joihns Road add 15 rows to this and then deleting from this row i.e A47 up to one row before text like "Total"


If insufficient rows to delete, for a particular sheets then do not delete the rows

Hope this is clearer

Thanks for your help Sintek

I do not want the row containing "Total" to be deleted when deleting the rows

Many Thank Sintek. Code works 100%