Sub Загрузка_данных_о_партиях()

'удаляем первый лист с отключением запроса на подтверждение удаления

    Application.DisplayAlerts = False
    Sheets("Схема документа").Delete
    Application.DisplayAlerts = True

'Погнали копипастить

    Dim iLastRow As Long

'Вся эта хрень повторяется столько раз, сколько листов в книге
'не считая первого удаленного и Листа2 на который все копируется
'т.е. 7 раз (если заводов станет больше, просто увеличим количество
'повторений цикла). --
'                    |
For s = 1 To 7   '<---

'Идем на лист 2 и выбираем нужную ячейку в конце списка
        Sheets("Лист2").Select
        Cells(10, 3).Select
        iLastRow = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
        Cells(iLastRow + 1, ActiveCell.Column).Select

'Идем на Лист (п/н2) следующий за Листом2 и
'копируем нужный диапазон
        Sheets(2).Select
        Range("B10:U10").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy

'Идем обратно на страницу Лист2 и всавляем полученные с Листа(п/н2) данные.
        Sheets("Лист2").Select
        ActiveSheet.Paste

'Удаляем листы 3-9 из книги. Т.е. после каждого копипаста
'удаляем следующий за Лист2
        Application.DisplayAlerts = False
        Sheets(2).Delete
        Application.DisplayAlerts = True

'и по новой
Next s

'ну и красоты ради вернемся обратно в начало таблицы
    Sheets("Лист2").Select
    Cells(10, 3).Select

'Сохраняем книгу как...
    Application.Dialogs(xlDialogSaveAs).Show "StandAlone" & "_" & Format(Date, "YYYYMMDD"), xlOpenXMLWorkbook


End Sub