Of course I don't have the add in so can't test it, hence my puzzlement over the @QUOTE
However try this. Copy the column labels in A1:Y1 of Live data to A1:Y1 in raw data
Now add these module level procedures. Change the TimeValue as necessary.
Option Explicit
Dim RunTime
Sub TimerStart()
Application.ScreenUpdating = False
ActiveWorkbook.RefreshAll
RunTime = Now + TimeValue("00:01:00")
Application.OnTime RunTime, "CopyData"
Application.ScreenUpdating = True
End Sub
Sub TimerStop()
On Error Resume Next
Application.OnTime RunTime, "RefreshTime", Schedule:=False
On Error GoTo 0
End Sub
Sub CopyData()
Sheet1.Range("A1").CurrentRegion.Offset(1, 0).Copy
Sheet2.Range("A" & Rows.Count).End(xlUp).Cells(2, 1).PasteSpecial (xlPasteValues)
TimerStart
End Sub
Now add these two Workbook Event procedures
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call TimerStop
End Sub
Private Sub Workbook_Open()
Call TimerStart
End Sub
Bookmarks