Hi guys

through searching the forums I was able to set up a VBA in which whenever my web query refreshed with new data the old data was refreshed 'on deck'. It is as follows:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A12")) Is Nothing Then
Application.EnableEvents = False
Range("CA1:CA12").Copy Range("DA1:DA12")
Range("BA1:BA12").Copy Range("CA1:CA12")
Range("AA1:AA12").Copy Range("BA1:BA12")
Range("A1:A12").Copy Range("AA1:AA12")


Application.EnableEvents = True
End If
End Sub
I am wanting an extension of this as I would like it refeshed 5 minutes and saving up until cells AZZ1:AZZ12 Is it possible to set a VBA up to do this without having to manually enter each range. The data I am saving is only small and wil be refreshing on a PC I seldomuse so I am hoping it won't slow the PC down too much.

Thanks in advance for any assistnce
Julie