Bom dia,
consegui resolver com a seguinte macro:
Private Sub Worksheet_Change(ByVal Alvo As Range)
    Dim limite_maximo As Integer
    limite_maximo = 100 ' altere aqui para limitar a última linha
    ' faz nada se mais de uma célula modificada ou se deu delete
    If Alvo.Cells.Count > 1 Or IsEmpty(Alvo) Then Exit Sub
    If Alvo.Column = 1 And Alvo.Row >= 2 And Alvo.Row <= limite_maximo Then
       ' o if acima garante que a célula modificada está dentro a2:a100
       '
       ' desliga captura do evento change
       Application.EnableEvents = False
       ' muda a célula C da linha correspondente
       Alvo.Offset(0, 2).Value = Date()
       ' religa a captura de eventos
       Application.EnableEvents = True
    End If
End Sub
                                                                                                	                                                
	                                         
                    
                    	
                            Postado : 30/04/2015 7:27 am