copy, past, and modify macro

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 1/28/2005 by alex
'

'
startvalue = InputBox("input start number", "Start Value")
endvalue = InputBox("input end number", "End Value")
If startvalue > endvalue Then
For i = startvalue To endvalue Step -1
Cells(2, 6).Value = i 'B6
'ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PrintOut
Next i

Else
For i = startvalue To endvalue
Cells(2, 6).Value = i
'ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PrintOut
Next i
End If


End Sub