Спасибо Hugo.Твой комментарий надвинул на идею и я докумекал.Код длинный вышел, примитивный, но рабочий

Попробую подробнее объяснить (не имею доступ к компьютеру с интернетом). Есть таблица. В ней данные тысячи человек. Из всех данных, мне необходимо выбрать определённые, затем перенести их на другую страницу в ячейки заготовки карточек (4 карточки на лист А4). Далее-распечатать получившуюся страницу и заменить данные в этих заготовках, на следующие 4 человека и печать. Описанный выше макрос делает это только для 1 заготовки. Как дополнить код, чтоб он это мог  сделать не в 1, а во всех 4?

Мне не хватает знаний. Мне необходимо определённые ячейки из строки, перенести на другую страницу. И так 4 раза, в разные ячейки(лист а4, разбит на 4 карточки, в которые вносятся данные). Потом распечатать это всё, взять следующие ячейки из следующих 4 строк, и так по новой (значений может быть до 1000)
На данный момент получается так:
Sub Макрос1 ()
Dim ss As String
Dim sf As String
Dim sd As String
Dim sq As String
Dim sw As String
Dim sy As String
For a = 2 To 40 'Это тестовое число-может быть другим
Sheets ("С ФИО оф").Select
ss = ""
sf = ""
sd = ""
sa = ""
sb = ""
sq = ""
sw = ""
sy = ""
ss = Cells(a,2).Value
sf = Cells(a,23).Value
sd = Cells(a,26).Value
sa = Cells(a,27).Value
sb = Cells(a,28).Value
sq = Cells(a,31).Value
sw = Cells(a,32).Value
sy = Cells(a,33).Value
If ss <> "" And sf <> "" And sd <> "" And sa <> "" And sb <> "" And sq <> "" And sw <> "" And sy <> "" Then
Sheets ("Для макроса").Select
i = 1
If i = 1 Then Range ("B1").Value = ss
...
If i = 1 Then Range ("B8").Value = sy
i = i+1
If i = 2 Then i = 1
End if
Тут стоит команда на печать активной страницы
Next a
End Sub
Это только на 1 карточку на странице, а надо 4. Что посоветуете?

Хорошо. Тогда, может поможете мне. Мне не хватает знаний. Мне необходимо определённые ячейки из строки, перенести на другую страницу. И так 4 раза, в разные ячейки. Потом распечатать это всё, взять следующие ячейки из следующих 4 строк, и так по новой (значения может быть до 1000)
На данный момент получается так:

Вот такие дела. Ума не приложу, что с этим поделать

Необходимо запустить 4, циклических макроса одновременно,в 1 документе. Возможно ли это?