Public nnn As Long
Sub Макрос1()
On Error Resume Next
For i = 1 To 72
Worksheets("данные на печать").Shapes("Прямоугольник " & i).Visible = False
Next i
Worksheets("данные на печать").Shapes("Прямоугольник " & nnn).Visible = True

For i = 1 To 72
Worksheets("данные на печать").Shapes("Rectangle " & i).Visible = False
Next i
Worksheets("данные на печать").Shapes("Rectangle " & nnn).Visible = True

End Sub

Sub Макрос2()
On Error Resume Next

For i = 1 To 72
Worksheets("данные на печать").Shapes("Прямоугольник " & i).Visible = False
Next i

For i = 1 To 72
Worksheets("данные на печать").Shapes("Rectangle " & i).Visible = False
Next i

End Sub

'Worksheets("данные1").Cells(2, 71).Calculete
'проверяем нужно ли выводить доп табели
If Worksheets("данные1").Cells(2, 71).Value = True Then
  nuzhen_vivod = True
End If
'если нужно выводить
If nuzhen_vivod = True Then
  Set MyRange = Worksheets("все вводить тут").Range("R4:R1000").Cells
  Pustix = 0
  Ludey = 0
  For Each element In MyRange
    If element.Value <> "" Then
      Ludey = Ludey + 1
      Pustix = 0
    Else
      Pustix = Pustix + 1
    End If
    If Pustix = 2 Then
      Exit For
    End If
  Next element
  nnn = Ludey + 1
  If nnn > 0 Then
    Call Макрос1
  End If
Else 'если не нужно выводить доп табель
  Call Макрос2
End If


End Sub