Мне не хватает знаний. Мне необходимо определённые ячейки из строки, перенести на другую страницу. И так 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, циклических макроса одновременно,в 1 документе. Возможно ли это?