Extension of web query save VBA

[batjl9]

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

[batjl9]

btw the original macro code was by JBeaucaire. It is exactly what I been looking for, butwould love to extend it further.

Julie

[batjl9]

any ideas on whether what i am asking is even possible?

thanks
julie