Использование Excel 2013 VBA Объединение нескольких рабочих листов в новую рабочую книгу

Question

Я просматривал архивы больше недели. Следующий код - это то, что я хотел бы использовать, но мне нужно сохранить его в новой папке и содержать 5 рабочих листов. Работает как есть, но экспортирует только 1 лист. У меня есть книга Excel с 258 вкладками. Мне нужно сделать 43 новые рабочие книги, которые будут содержать 5 экспортированных рабочих листов в каждой.

Может кто-нибудь, пожалуйста, помогите?

Скрипт VBA:

Sub Sheet_SaveAs()
  Dim wb As Workbook
  Sheets("Sheet1").Copy      
  Set wb = ActiveWorkbook      
  With wb
    .SaveAs ThisWorkbook.Path & "\Workbookname.xlsx"
    '.Close False
  End With
End Sub