Not sure why you delete after issung the Delete after the Ontime, isn't it that that you wish to wait for? If so

[vba]

Sub Main()

Call Development

Dim RunWhen As Double
Const cRunIntervalSeconds = 5 ' two minutes
Const cRunWhat = "Get_Stats"
RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, schedule:=True
End Sub

Sub Get_Stats()

ThisWorkbook.Sheets("Development").Columns("J:BJ").Delete

End Sub
[/vba]