Sub Кнопка2_Щелчок()
    ' Назначаем переменные
    Dim a As Long 'основная переменная выводимая на печать
    Dim С As Long 'расчетная переменная
    Dim ПО As Long 'расчетная переменная
    On Error GoTo Err
    С = Range("AT11").Value + 1
    ПО = InputBox("Количество", "Ввод")
    r_ = Sheets("Реестр").Range("A" & Rows.Count).End(xlUp).Row
    For a = С To С + ПО - 1
        Range("AT11").Value = a
        Worksheets("Акт").Calculate
        Worksheets("Акт").PrintOut Copies:=1, Collate:=True
        n_ = n_ + 1
        Sheets("Реестр").Range("A" & r_ + n_) = a
    Next a
    ActiveWorkbook.Save
Exit Sub
Err:
    MsgBox "ТЕКСТ", vbInformation, "ВНИМАНИЕ!"
    ActiveWorkbook.Save
End Sub