Макрос для переноса нескольких выбранных листов из одной книги в другую

[D07]

Добрый день!

Помогите пожалуйста написать макрос со следующим алгоритмом. Есть файл с несколькими листами. Нужно из этого файла значения ячеек одних листов перенести в новый файл на разные листы. Т.е. значения из Листа1 исходного файла нужно перенести в Лист1 нового, значения Листа3 - в новый файл Лист3.

Номера Листов со значениями каждый раз меняются. Т.е. допустим в первый раз нужно перенести Лист1 и Лист5, во второй Лист2, Лист8 и Лист 14.

Перенос для одного листа я с грехом пополам слепил из чужих макросов (прилагаю). А вот как сделать так, чтобы можно было несколько листов переносить - не знаю.

Лист с примером добавить не дает. Т.к. в листе макрос, а такие файлы не поддерживаются. Выкладываю текст макроса сюда

Sub Макрос3()
    Dim iSource As Worksheet
    Set iSource = ThisWorkbook.Worksheets("Лист2")
    iSource.Range("A1:J50").Copy
   
    With Workbooks.Add(xlWBATWorksheet)
    Sheets.Add After:=Sheets(Sheets.Count)
         .Worksheets(1).Range("A1").PasteSpecial xlValues
         .Worksheets(1).Range("A1").PasteSpecial xlFormats
         .Worksheets(1).Range("A1").PasteSpecial xlPasteColumnWidths
         .SaveAs Filename:="C:\1.xlsx"
    End With
End Sub '

[cheshiki1]

на планете есть ответы.
на планету

[Serge 007]

Владимир, если ТС не дал ссылку на кросс-постинг, то надо её давать нам