Printing dates

[Scooter172]

I want to be able to hit print and print 15 copies of sheet named (OT Sort Table) with a Day and Date changing in 2 cells on each page printed. This would be used to print sign up sheets for Overtime. rather than changing the dates on each one for each date. I imagine I would have a cell or form with drop down calander to start the date from... = Start Date. MY Company uses 2007 Ver.

Here is what I have for printing 15 of that sheet but dont know how to step date in cell by 1 for each page printed.

Cell A 51 = Day in DDDD format and Cell O51 = Date in dd/mm/yyyy format

Sub fullPrintOneSide()
'Print the entire OT Sort Table scaled to fit on one side of one sheet of legal-size paper, created by Scott A. Stone 01-6-13.
Application.ScreenUpdating = False
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.ResetAllPageBreaks

With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintArea = "$F$1:$Q$55"
.Orientation = xlPortrait
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With
Sheets("OT SORT TABLE").PrintOut Copies:=15, Collate:=True

ActiveWindow.View = xlNormalView
Application.ScreenUpdating = True
End Sub