cleaner code

I created this macro that copies from cell A1 and paste into the next cell I want to keep incrementing but I dont want to keep copy and paste the same thing how can I make it cleaner, with out having next_1, next _2 , next_3 and so on

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("A1").Select
    Selection.Copy
    Range("A4").Select
    ActiveSheet.Paste
    Application.OnTime Now + TimeValue("00:01:00"), "next_1"
    End Sub
    
Sub next_1()
    Range("A1").Select
    Selection.Copy
    Range("A5").Select
    ActiveSheet.Paste
    Application.OnTime Now + TimeValue("00:01:00"), "next_2"
End Sub

Sub next_2()
    Range("A1").Select
    Selection.Copy
    Range("A6").Select
    ActiveSheet.Paste
    Application.OnTime Now + TimeValue("00:01:00"), "next_3"
End Sub

Sub next_3()
    Range("A1").Select
    Selection.Copy
    Range("A7").Select
    ActiveSheet.Paste
End Sub

I had it before every 10sec just for testing,