Incrementar uma tabela de 7 em 7 dias

Ola, desculpem eu está postando 2 problemas ao mesmo tempo, e um problema de logica, no VBA, e que eu não sou profissional e estou tentando fazer a incrementarão de uma tabela e 7 em 7 dias, assim se eu marcar uma data, ele marcara a outra 7 dias depois, tenho um código não estou conseguindo fazer.


Agradeco a ajuda..

Código:

https://1drv.ms/u/s!ApmWUgZEd2wPkvI6ryx21_mNyQDGzA?e=K25z3s

o banco esta no link

Boa noite

Sub CalculateEndDate()
Dim WDay As String
   txtEndDate = txtStartDate + txtDays
   WDay = Weekday(txtStartDate)
   WDayName = WeekdayName(WDay)


Encrementa mais 7 aqui

Sub CalculateEndDate()
Dim WDay As String
 txtEndDate = txtStartDate + 7
   WDay = Weekday(txtStartDate)
   WDayName = WeekdayName(WDay)

Boa noite marcos_vitorino
REsolvido?

Desculpa a demora, eu estava com problemas de saúde e tive que me afastar por uns dias. vou aplicar o que voce me passeou para dar uma olhada

obrigado pelo help.