Записать значения из одной книги в несколько других

[quarkshark]

Есть 10 рядов чисел по 15 чисел в каждом ряде. Номер ряда находится в столбце А начиная с ячейки А2.

Первый ряд чисел начинается с ячейки В2, второй - с В3 и т.д.

Нужно макросом записать значения ячеек рядов чисел из этой книги в книгу название которой есть номером ряда, начиная с ячейки В2 по 5 ячеек в столбце (15 чисел - 3 столбца по 5).

Ряд чисел из В2 по Р2 должен быть записан в файл 1.xlsx первые 5 ячеек в первый столбец начиная с В2, следующие 5 ячеек во второй столбец начиная с С2 и т.д.

Аналогично, следующий ряд должен быть записан в файл 2.xlsx и т.д.

Все файлы находятся в одной и той же папке.

[quarkshark]

Пример ниже

[IgorGO]

Sub Copy35()
  Dim rg As Range, r As Long, c As Long
  Set rg = Range("B2,G2,L2"):  Application.ScreenUpdating = False
  For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    Workbooks.Add
    For c = 0 To 4
      rg.Offset(r - 2, c).Copy Cells(r + c, 2)
    Next
    With Workbooks(Workbooks.Count)
      .SaveAs rg.Offset(r - 2, -1).Value: .Close
    End With
  Next
  Application.ScreenUpdating = True
End Sub

[quarkshark]

Спасибо Игорь! Как можно изменить этот код чтобы записывать значения в существующие книги (где уже присутствует форматирование и другие данные) и файлы в формате .xlsm ? Тут при каждом сохранение нужно нажимать на подтверждение перезаписи файлов. И если увеличить количество чисел с 15 до 100 нужно их всех записывать через запятую (адрес каждой 5-й ячейки) или можно как-то по-другому их записать в формулу?

Set rg = Range("B2,G2,L2,Q2,V2,AA2")
и т.д.

[IgorGO]

Как можно изменить этот код

изменить его можно так, что мать родная не узнает ))

уважаемый quarkshark,
подкупает в Ваших вопросах основательность, с которой Вы подходите к разьяснениям что есть и что нужно...
но когда выясняется, что это только вершина айсберга - становится грустно, задача как бы решена

в общем... удачи!
учитите VBA и не то еще можно сделать)

[quarkshark]

Спасибо Игорь! Я сейчас учу VBA но мне пока что трудно со всем разобраться самому, поэтому и просил совета. Желаю Вам тоже удачи!