Segue outro anexo.

Olá, Silva!

Não entende oque vc quer.

Explica um pouco melhor.

BLZ?

T+

Veja se ficou de acordo com sua necessidade.

E assim mesmo, mas tentei colocar script para os outros TextBox, esta salvando as datas em uma linha unica mas na sequencia de colunas.

silva_jmp

segue o anexo com as alterações

A sitanxe para offset é:

expressão.Offset(RowOffset(Linha), ColumnOffset(Coluna))

então fica assim:

ActiveCell.Offset(0, 0) - Mantem-se na mesma linha e coluna (Por exemplo I5)
ActiveCell.Offset(0, 1) - Desloca uma coluna (Por exemplo: De I5 para J5)
ActiveCell.Offset(1, 0) - Desloca uma celula na mesma coluna (Por Exemplo: De I5 para I6)

Segue a Plan com as devidas modificações.

Obs.Créditos de Reinaldo.