помощь в одном из ваших макросов

Question

Я использовал один из ваших макросов, и мне было интересно, можно ли соответственно изменить его для моего использования. макрос, который вы посоветовали, выглядит следующим образом:

Sub PrintCopies_ActiveSheet()

Dim CopiesCount As Long
Dim copynumber As Long

CopiesCount = Application.InputBox("How many copies do you want?", Type:=1)
'Now the program wants you to input how many pages you like to print.
'You can input 100 here.

For copynumber = 1 To CopiesCount
With ActiveSheet
   .Range("E1").Value = copynumber 'I assume your invoice number is in cell E1.
   .PrintOut 'Print the sheet
End With
Next copynumber
End Sub

Мне было интересно, возможно ли, чтобы число в ячейке E1 увеличивалось на 3 цифры после каждого отпечатка, а не на 1 цифру? Я спрашиваю об этом, так как использую макрос для этикеток на сумках, которые выходят как 3 этикетки на печать

Так, например, я напечатал бы ярлыки пакетов 1,2,3 (новая страница), 4,5,6 (новая страница), 7,8,9 (новая страница) и т.д.