Sub MyPrint()
Dim sh As Worksheet, s
With ThisWorkbook
For Each sh In .Worksheets
If Not sh.[P5].Value = 0 Then s = s & sh.Name & ","
Next sh
s = Split(Left(s, Len(s) - 1), ",")
.Worksheets(s).PrintOut Copies:=1
End With
End Sub

Sub CopySheet()
    'Копирование листа
    Application.ScreenUpdating = False
    With Worksheets("таблица")
      .Copy After:=Sheets(ActiveSheet.Index)
      On Error Resume Next
      With ActiveSheet
        Do: Err.Clear: s = InputBox("Новое имя ?", , .Name)
          If Len(s) Then
            .Name = s
            .[e1] = s
          Else
            .Delete  ' Если отмена, то удаляем лист.
          End If
          If Err Then MsgBox Err.Description, vbInformation
        Loop While Err
      End With
      s.Activate
      'Sheets("Оглавление").Activate
    End With
    Application.ScreenUpdating = True
  
End Sub