Automatic timer function in excel

 [29/06, 10:52] Aakash: Sub hello()

Worksheets("Sheet1").Range("a2:c2").Select

Selection.Cut

lastrow = Worksheets("Sheet1").Cells(Row.Count, 6).End(xlUp).Row

Worksheets("sheet1").Cells(lastrow + 1, 6).Select

ActiveSheet.Paste

Worksheets("Sheet1").Range("a2:c2").Select

Selection.Delete shift:=xlUp

Worksheets("Sheet1").Range("a2").Select

Call test

End Sub

Sub test()

Application.OnTime Now + TimeValue("00:00:10"), "hello"

End Sub 

this code insert ur working sheet

[29/06, 10:52] Aakash: 'Application.OnTime Now + TimeValue("00:00:10"), "hello"