Sub CopyPrint()
On Error Resume Next
iCopy = Application.InputBox("Введите количество копий:", "Печать", 1, Type:=1)
Application.ScreenUpdating = False
If IsNumeric(iCopy) And iCopy > 0 Then
    With Worksheets("MMO")
        For I = 1 To iCopy
        .Range("U1").Value = .Range("U1").Value + 1
        .Range("E4").Value = .Range("U1").Value
        .Range("O4").Value = .Range("U1").Value + 1
        .Range("E29").Value = .Range("U1").Value + 2
        .Range("O29").Value = .Range("U1").Value + 3
        .Range("U1").Value = .Range("O29").Value
            .PrintOut
            .Range("C2").Value = "OD" & Format(CDbl(Mid(.Range("E4:J5"), 3)) + 1, "000000")
        Next
    End With
End If
Application.ScreenUpdating = True
End Sub