Autonummer excel (Macro)

Hej jeg har et problem med denne Marco jeg kan ikke se hvad vi har lavet galt, men når vi når til nummer 92 så stopper den, og så skal vi starte forfra igen, vi har prøvet at ændre start nummeret til f.eks 93 men så printer den ikke hvad er der galt??

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