Moving Data

[marklongbottom]

I have a row of data (A4:I4) which is being fed in from an external source. This data refreshes every minute in these cells. Every minute that it changes I would like to take a snap shot of this data and put it in another row below e.g. A7:I7. The next minute I'd like a snap shot of A4:I4 to go in to A8:I8 and so on.
Is this possible? Can someone help?

Cheers,
Mark

 

[Andrew Poulsom]

Put a formula somewhere that references A4. Set calculation to automatic and try this code in the module for the worksheet:

Private Sub Worksheet_Calculate()
    Dim NextRow As Long
    NextRow = Range("A" & Rows.Count).End(xlUp).Row + 1
    Range("A4:I4").Copy Range("A" & NextRow)
End Sub

 

[marklongbottom]

Thanks for this...problem sorted. Seems to do what I want.