Imagino que deve haver alguma rotina que seja executada quando se insere uma nova data, certo?
Ao fim dessa rotina, sugiro você adicionar um código, que, por exemplo, salve em alguma célula o valor dessa data, algo bem simples como
Sheets("Dados").Range("A1") = txtDataInserida
Por outro lado, na rotina UserForm_Initialize (ou seja, ao carregar o Formulário), você adicionaria
txtDataAtual = Sheets("Dados").Range("A1")
*Se você não quiser adicionar a última data numa Planilha, pode adicionar num Nome Definido ou nas Propriedades da Pasta de Trabalho.
Felipe Costa Gualberto - http://www.ambienteoffice.com.br