Sub Procedure_1()
        
      Dim myPartyNumber As String
      'Делаем у переменной "myKipCount" тип данных "Variant", т.к. в ней
          'в коде могут быть числа и текст.
      Dim myKipCount As Variant
      Dim i As Long
        
        
      'Пользователь выбирает номер партии.
      'Данные помещаются в переменную "myPartyNumber".
      myPartyNumber = InputBox("Введите номер партии:")
        
      'Проверка, что пользователь что-то ввёл и не нажал "Отмена".
      If myPartyNumber = "" Then
          'Выход из процедуры.
          Exit Sub
      End If
        
      'Пользователь выбирает количество кип.
      myKipCount = InputBox("Введите количество кип:")
        
      'Проверка, что пользователь ввёл число, иначе в коде
          'будет ошибка при выполнении математических действий.
      If IsNumeric(myKipCount) = False Then
          MsgBox "Введено не число.", vbExclamation
          Exit Sub
      End If
        
      'Делаем в переменной "myKipCount" числовой тип данных,
          'хотя в этом нет необходимости, но чтобы было.
      myKipCount = CLng(myKipCount)
        
      'Помещаем в активный лист, в ячейку "B1" номер партии.
          'Макрос будет распечатывать активный лист.
      ActiveSheet.Range("B1").Value = myPartyNumber
        
      'Печать активного листа.
        
      'For ... To ... Step ... Next - это цикл. Цикл используется,
          'чтобы делать одну и ту же команду несколько раз.
      For i = 1 To myKipCount Step 1
          'В активный лист, в ячейку "B2" подставляем данные.
          ActiveSheet.Range("B2").Value = i
          ActiveSheet.PrintOut
      Next i

End Sub