Hanner,
o código mesmo com o CALCULATE permanece replicando a primeira atualização do registro.
encontrei na net dias atras o seguinte codigo:
Private Sub Worksheet_Calculate()
Dim LR As Long
LR = Cells(Rows.Count, 1).End(xlUp).Row
If LR < 3 Then LR = 3
Cells(LR + 1, 1) = Date
Cells(LR + 1, 2) = Time
Cells(LR + 1, 3) = [A1]
End Sub
ele até faz a gravação dos registros, mas não faz de modo automático a cadas "x" tempo e também não está copiando as células que preciso
se não for pedir demais, pode tentar adaptar esse código juntamente com o seu para atender minha necessidade?
eu realmente não entendo nada de programação...
adicionado 0 minutos depois
ah, faltou dizer que a atualização dos dados é de forma automática através de uma conexão DDE