E aí, colega Carlos, boa noite.

Uma idéia: no módulo de evento da sua planilha "Calendário" coloque esse código abaixo. Ele vai inserir a data selecionada sempre na célula AL8, aquela q vc deixou pintada de amarelo.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If IsDate(Target.Value) Then
      Me.Range("AL8").Value = Target.Value
    End If
End Sub

Saudações

Perfeito.

Obrigado!