assistência em uma das suas macros

Question

Eu usei uma de suas macros e queria saber se é possível alterar de acordo com o meu uso. a macro que você recomendou é a seguinte:

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

Eu queria saber se é possível que o número na célula E1 suba três dígitos após cada impressão, em vez de um dígito? Eu pergunto isso como eu estou usando a macro para etiquetas de saco que saem como 3 etiquetas por impressão.

Por exemplo, eu imprime rótulos de saco 1,2,3 (nova página), 4,5,6 (nova página), 7,8,9 (nova página) etc.