=ТРАНСП(СМЕЩ(ИСХОД!$A$1;(ОТБР((МИН(СТРОКА())+2)/3)-1)*30;;30;3))

Sub qq()
Dim sh As Worksheet, i&
     Set sh = Sheets("НА ПЕЧАТЬ 1")
     Application.ScreenUpdating = False
     With Sheets("ИСХОД")
         For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row Step 30
             .Range("A" & i & ":C" & i + 29).Copy
             IIf(sh.Cells(Rows.Count, 1).End(xlUp).Row = 1, _
                 sh.Cells(Rows.Count, 1).End(xlUp), sh.Cells(Rows.Count, 1).End(xlUp).Offset(1)) _
                 .PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
                 False, Transpose:=True
         Next
     End With
     sh.Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp).Offset(, 30)).Orientation = 0
     Application.ScreenUpdating = True
End Sub