Bom, antes de mais obrigado pelo feedback.
O valor da célula são números que variam automaticamente, a folha está ligada para fora pela web.
Eu queria mesmo por VB só que não percebo nada disto
Eu tenho aqui um código que me faz algo parecido porém ao contrário daquilo que pretendo.
Sub Record_data()
'
' Record_data Macro
'
'
Application.ScreenUpdating = False
Sheets("Folha2").Select
Range("A1:A65536").Select
Selection.Copy
Range("A2").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Range("A1").Select
Sheets("Folha1").Select
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Em vez de me copiar o novo valor para a última célula vazia da coluna, copia-me para a célula imediatamente a seguir empurrando as mais antigas para baixo.
E eu queria que ele copiasse sempre para a célula vazia imediatamente a seguir.
Pelo que estive a investigar penso que deve passar por aqui:
Range("A1").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
pela função OFFSET, deslocamento, só que não percebo nada disto ...
Para quem trata o excel e VB por tu deve ser a coisa mais simples que existe mas para mim é complicado