Saving files as CSV using VBA - currently saving multiple files as worksheets

My original problem was finding out how to separate a file with 12000 rows into individual files with 1000 rows and keep the header. I found a great Q&A that does just that (with only one adjustment to number of rows), the link is here: My original problem was finding out how to sepa