Hi all I want to get page numbers into this macro if anyone can help

Day1 worksheet checks range ak5:ak40 if that is blank it omits page 5
from first array print if it is not blank it prints on second array.
I just cant work out how to put page numbers in here..
The page numbers on Day1 worksheet are 1 - 3 - 5 - 6

Sub Front1()
'Day 1
Application.ScreenUpdating = False
If WorksheetFunction.CountBlank(Sheets("Day1").Range( "AK5:AK40")) = 36
Then
Sheets(Array("1 To:=1,", "3, To:=3,", "6, To:=6,")).Select
Else
Sheets(Array("From:=1, To:=1,", "From:=3, To:=3", "From:=5,
To:=5,", "From:=6, To:=6,")).Select
End If
Sheets("1").Activate
ActiveWindow.Selectedpages.PrintOut Copies:=1, Collate:=True
Sheets("PrintMenu").Select
Application.ScreenUpdating = True
End Sub

Ta for any help