|
Sub ScheduleTheDay()
Application.OnTime EarliestTime:=TimeValue("8:00 AM"), Procedure:=CaptureData
Application.OnTime EarliestTime:=TimeValue("9:00 AM"), Procedure:=CaptureData
End Sub
Sub CaptureData()
Dim myWorksheet As Worksheet
Dim NextRow As Long
Set myWorksheet = Worksheets("Sheet1")
myWorksheet.range("A2").QueryTable.Refresh BackgroundQuery:=False
Application.Wait (Now + timeValue("0:00:10"))
NextRow = myWorksheet.cells(65536, 1).End(xlUp).row + 1
myWorksheet.range("A2:B2").copy myWorksheet.cells(NextRow, 1)
End Sub
|