VBA to split data to worksheet/workbook , delete zero values, set print area

I have a macro that currently works for me (after much help from others on another thread) but I would like some help tweaking it.
Please note that the subtotal function excludes the first sheet because doing so isn't necessary and will cause excel to crash due to #of rows.



1. On Sheet 1, how can I delete any rows that have zero value on Column K?

2. The data is split into worksheets by column A (Invoice #) but it isn't done in alphabetical order, even if the first sheet is in alphabetical order. How can I change that?

3. How can I save each tab as a separate Excel 2013 file without deleting it in the original sheet?

4. I have a print area set that includes all columns but I would like to auto detect how many pages are needed. The limit of rows I would like to have in one page is 75. For ex, an invoice with 230+ rows would require 4 sheets.

Please Login or Register  to view this content.

This should help with questions 1 and 3:

Please Login or Register  to view this content.

Unrelated to you questions, let me suggest you avoid using 'Select' - it is almost never needed, and it really slows things down. As an example, you can replace

Please Login or Register  to view this content.

with

Please Login or Register  to view this content.

gmr4evr1 - Thank you for that code, it worked! this solved request #1.

mgs73 - that didn't seem to work. As far as the alphabetical order of the sheets being saved, I realized it's because of the sorting that I have, I only intended it to do so on the sheets that are created. I'm attempting to include this after the Next ws portion but I'm getting an error (Compile Error: Next without For). Please see below. How can I properly move the highlighted yellow code?

Please Login or Register  to view this content.

gmr4evr1 - that didn't work but it's possible I did this incorrectly. Would you mind sharing your suggestion within the coding I previously provided?

Thanks in advance.