nilson, o ideal seria ter postado um modelo ou detalhar uma pouco mais alem de colocar quais rotinas e procedimentos já está utilizando.
Me baseando só pelo o que entendi, copie essas rotinas e coloque no modulo do WorkBook, em: "EstaPasta_de_trabalho.

Na rotina estou considerando os lançamentos na Coluna A, fiz o tratamento para diferenciar qdo é a primeira vez que lançamos e qdo é relançado, ou seja, na primeira vez é descartaado o lançamento na coluna subsequente, só não tratei a questão de DELETAR / APAGAR o conteudo da celula, pois não sei o que iria fazer,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'Armazenamos o valor de qdo selecionamos a celula para as
    'condições de preenchimento
    sValorOld = Target.Value

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sRow
    Dim sData As Date
    
    sRow = Target.Row 'Linha da Seleção
    sData = Date 'Data do Sistema
    
    'Se a coluna selecionada for diferente da A sai da rotina
    If Target.Column <> 1 Then Exit Sub
    
        Application.EnableEvents = False
    
        If sValorOld = "" Then 'Se o Valor anterior for vazio "Primeiro Lançamento" Sai da Rotina
            Application.EnableEvents = True
            Exit Sub
            
        Else
            'Se não, continua, verifica qual a última coluna preenchida
            'somamos mais um para a proxima coluna
            sRow = Target.Cells(1, Cells.Columns.Count).End(xlToLeft).Column + 1
           
        End If
            'e efetuamos o lançamento
            Target.Cells(Cells.Column, sRow).Value = sData
    
        Application.EnableEvents = True

End Sub

QQ duvida retorne.
[]s
Mauro Coutinho

Boa tarde.
Desde já agradeço a atenção, irei ver hoje a noite como funciona.
Só não mandei anexo pq não estou encontrando mais como anexar.

Boa Tarde
Hoje uso esse código, Porem sempre que altero a celula alguma celula da coluna (obss1) ele apenas gera a nova data,
preciso que quando haja essa alteração da coluna (obss1) acrescente a coluna seguinte a nova data e assim sucessivamente

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("obss1")) Is Nothing Then
Application.Intersect(Target.EntireRow, Range("Date1")) = Date
End If

Desde já agradeço a atenção

.
"Só não mandei anexo pq não estou encontrando mais como anexar."
.
nilson1978, se o código do Coutinho não resolver, poste o arquivo no www.sendspace.com ... depois cola o link aqui !!!
.

Grato pela atenção
Nunca usei mas espero ter conseguido
segue o link
https://www.sendspace.com/file/j9jm3z

Nilson, veja se seria isso, qq duvida retorne.

https://www.sendspace.com/file/gjsgw1

Mauro Coutinho

Bom dia
Desculpe a demora em responder acabei me envolvendo em outros projetos pessoais
Acabo de ver sua msg, funcionou perfeitamente.
recebi tbm a ajuda de um ilustre professor de um grupo de whatsapp, ao qual não sei de posso mencionar o nome aqui.
Onde a rotina funciona perfeitamente tbm.
Na Ajuda do prof, as datas são lançadas na coluna seguinte e dicando a esquerda a ultima alteração, com facilidade maior par relatórios
Porém em nas duas macros sujeridas, não consigo bloquear as celulas que receberam as datas, onde evitaria que o operador alterasse a mesma.
Vou lhe enviar o codigo que recebi para ver se poderia me dar essa luz

Desde já agradeço
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("Observações")) Is Nothing Then
'Cria uma variável para ajustar o nome da célula
Dim Celula As String
'Atribui o valor na célula
Celula = "T" & Target.Row
'Seleciona a célula
Range(Celula).Select
'Adiciona uma nova célula e move os valores para a direita

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
'Insere a data na célula
Range(Celula) = Date

End If

End Sub