Macro is changing values!!!

[aposatsk]

I have a ten column chart with the following format:

1---------------2----------------3----------------....
19-Aug---------26-Aug--------02-Sept.......
25-Aug---------01-Sept--------08-Sept.........

#####-------$$$$$$------------@@@@-------......
#####-------$$$$$$------------@@@@-------......
#####-------$$$$$$------------@@@@-------......
#####-------$$$$$$------------@@@@-------......

Now the macro deletes Row 1, copies the values (####) from row 2 to row 1; then, it changes Row1 dates to e.g. 26August to 01Sept, and finally changes column 10 to the last week.

For example, the new values after the macro should be:

1---------------2----------------3----------------....
26-Aug--------02-Sept----------09-Sept---------...
01-Sept--------08-Sept---------14-Sept---------.....

$$$$$$$-------@@@@-----------!!!!!!!!!!-------......
$$$$$$$-------@@@@-----------!!!!!!!!!!-------......
$$$$$$$-------@@@@-----------!!!!!!!!!!-------......
$$$$$$$-------@@@@-----------!!!!!!!!!!-------......

The problem arises when the new values (####) are different. Not only is the new Row 1 different from the old Row 2, but Row 3 and Row 4 are completely random values! So, the format turns out to be:

1---------------2----------------3----------------....
26-Aug--------02-Sept----------09-Sept---------...
01-Sept--------08-Sept---------14-Sept---------.....

$$$@@$-------@%#@-----------@#$%#-------......
!!!!!$$$$-------@#$%$-----------!@#$^%-------......
$@!@!$$-------@%#@-----------^%$!!~!-------......
!!!!!$$$$-------@%#@-----------&&&&&&&-------......

Here is the macro:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 15/05/2006 by Alex
'

'
Range("X9:AD127").Select
Range("X9:AF127").Select
Range("AF9").Activate
Selection.Copy
Range("W9").Select
ActiveSheet.Paste
Range("AF9:AF127").Select
Selection.ClearContents
Range("W4").Select
With Worksheets("Asphalt").Range("w7")
.Value = .Value + 7
End With
End Sub