drucken copies:=4 aber sortiert?

ich möchte eine mappe ausdrucken. jedes blatt soll 4mal kopiert werden außer dem ersten das soll nur einmal da sein.mit dieser sub:

Private Sub CommandButton1_Click()
Dim i As Integer
i = Worksheets.Count

For j = i To 2 Step -1
Worksheets(j).PrintOut copies:=4
Next j

Worksheets("aufklebershd").PrintOut copies:=1
Unload Me
UserForm1.Show
End Sub

schmeißt er aber logischerweise statt 4mal die mappe immer nur 4mal seite 5 4mal seite 4 etc.

wie knnte ich das anders lösen?

in meiner mappe ist das blatt was einfach raus soll das einzige ohne tabelle im namen. aber leider weiß ich nicht wie ich das einbinde...

falls da wer ne idee hat.

merci schonmal.

henning