drbeil,

Vamos por partes :

1) Sobre a data

No código do formulário que obtém o valor de data, uma possibilidade de corrigir a exibição no campo, seria você utilizar SeuTextBox=Cells(ActiveCell.Row,"Coluna").Text, ou SeuTexBox=cDate(Cells(ActiveCell.Row,"Coluna").Value), ou ainda SeuTextBox=Format(Cells(ActiveCell.Row,"Coluna").Value),"dd/mm/yyyy").

2) Sobre preencher a última coluna em branco do registro selecionado

a) Vc terá de criar uma rotina que selecione a linha que contém o valor pesquisado;
b) Feito isso, basta vc adicionar o codigo abaixo antes do código que adiciona uma nova data para o registro atual

    Cells(ActiveCell.Row, "A").Select 'Seleciona a coluna A da linha atual
    Selection.End(xlToRight).Select 'Move o foco para a ultima coluna preenchida na linha atual
    ActiveCell.Offset(0, 1).Activate 'Move o foco para a proxima coluna
    If ActiveCell.Column <= 35 Then ' Se a coluna for menor ou igual a AI
        ' Insira seu código para efetuar o cadastro
    End If 'Fim do laço

Veja se isso te ajuda. Qualquer coisa, só chamar!

[]s