Распечатать на месяц вперёд один и тот же документ только с разной датой

Public Sub PrintNext30Days()
    Dim i As Integer
    Dim wsh As Worksheet
    
    Set wsh = Worksheets("Лист1")
    With Workbooks.Add()
        For i = 0 To 30
            wsh.Cells(6, 1) = DateAdd("d", 1, wsh.Cells(6, 1))
            wsh.Copy After:=.Sheets(1)
        Next i
        .PrintOut Copies:=1, Collate:=True
        .Close SaveChanges:=False
    End With
End Sub

Public Sub PrintNextDays()
    Dim i As Integer
 
        For i = 1 To 30
        [D6]=i
        activesheet.PrintOut Copies:=1, Collate:=True
        Next i
End Sub

Public Sub PrintNextMonth()
    Dim i As Integer
    Dim wsh As Worksheet
    Dim prtDate As Date
    Dim lstDate As Date
    prtDate = DateSerial(Year(Date), Month(Date) + 1, 1)
    lstDate = DateAdd("m", 1, prtDate)
    Set wsh = Worksheets(1) '"Стр1"
    With Workbooks.Add()
        Do While prtDate < lstDate
            wsh.Cells(6, 33) = Format$(prtDate, "dd")    'Cells(6, 33) - это адрес ячейки для дня, где 6-это индекс строки, а 33-это индекс колонки
            wsh.Cells(6, 37) = Format$(prtDate, "mmmm")  'Cells(6, 37) - это адрес ячейки для месяца, где 6-это индекс строки, а 37-это индекс колонки
            wsh.Cells(6, 53) = Format$(prtDate, "yyyy")  'Cells(6, 53) - это адрес ячейки для года, где 6-это индекс строки, а 53-это индекс колонки
            wsh.Copy After:=.Sheets(1)
            prtDate = DateAdd("d", 1, prtDate)
        Loop
        .PrintOut Copies:=1, Collate:=True
        .Close SaveChanges:=False
    End With
End Sub

Sub PutevieListi1()
Dim i As Long
For i = 1 To 31
Range("AG6") = i
Range("BM3") = i + 300
ActiveSheet.PrintOut
Next i
End Sub