You can hard code it
Sub time915()
Application.OnTime TimeValue("09:15:00"), "copyBtoC"
End Sub
Sub time1000()
Application.OnTime TimeValue("10:00:00"), "copyCtoD"
End Sub
Sub copyBtoC()
Range("B1:B3").Select
Selection.Copy
Range("C1").Select
Selection.PasteSpecial...