Macro to increment a number up and print in reverse

Hi All

I have a macro and the moment that works by incrementing a number in sequence 1,2,3,4,5,6,7
but when it prints it does so by 1.2.3.4.5.6.7

Sub print_sheet()
P = InputBox("How many sheets?")
    For I = 1 To P Step 1
        Worksheets("Sheet1").PrintOut
        Range("C3").Value = Range("C3").Value + 1
    Next I
End Sub

but then I have to stand and put the pages 7.6.5.4.3.2.1 manually so that 1 is the first page you pickup.

Ideally I would like macro to increment up 1,2,3,4,5,6,7 but print 7.6.5.4.3.2.1 as when I do a print run of 100 sheets it gets a bit tedious reordering the sheets manually, this is for a 1 page data capture sheet, once I get to printing 200 sheets a time it will get a bit time consuming...

Total Macro novice..

Many Thanks