Slow VBA Loop Code

I have a VBA loop code I wrote to move hourly data to a sheet set up in 5 minute intervals, entering the hourly data every 12 spaces. This code works but it takes >20 minutes to run one column of data. Is there any way to speed it up?

Sub procedure2()

'Moves Manual Entry Hourly NU Reported Output to Partial Tracking 5min NU Reported Output
    For i = 12 To 9000 Step 12
    Sheet5.Range("f4").Offset(0, 0) = Sheet7.Range("m4").Offset(0, 0)
    Sheet5.Range("f4").Offset(i, 0) = Sheet7.Range("m4").Offset((i / 12), 0)
    Next i
End Sub