Hi,
I am not the most elegant macro writer, but try this code.

Sub ResetWeek()
A = 1
Do Until Cells(A, 1) = ""
A = A + 1
Loop
Range(Cells(A - 7, 1), Cells(A - 1, 255)).Copy _
Range(Cells(A, 1), Cells(A + 6, 255))
End Sub

Regards - Dave.