Automatic copy to paste data in excel

 Sub hello()

Range("A1:A10").Copy

Range("F1:F10").PasteSpecial xlPasteValues

Application.CutCopyMode = False

Range("A2:A10").Font.ColorIndex = 10

Call test

End Sub

Sub test()

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

End Sub