Macro - copy weekly data to a week number

Hi,

i try to copy data which are generated on a daily basis to a different worksheet into the row with week No. , but it needs to be checked the week number. It depends on which week number the data generated, then the data have to be copied to a different row.

4-Apr-08 14 WeekNo.
11-Apr-08 15
18-Apr-08 16
25-Apr-08 17
2-May-08 18


My recorded macro:

Sub Copy_Data_Over()
'
' Copy_Data_Over Macro

'    Sheets("Weekly_Data").Select
    Range("C3:AB3").Select
    Selection.Copy
    Sheets("Data").Select
    Range("C49").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWorkbook.RunAutoMacros Which:=xlAutoClose
    Sheets("Hands_Weekly_Data").Select
    Range("C3:AF3").Select
    Selection.Copy
    Sheets("HandsTrend").Select
    ActiveSheet.ChartObjects("Chart 4").Activate
    ActiveWindow.Visible = False
    Windows("Dashboard.xls").Activate
    Sheets("Hands_Data").Select
    Range("C14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Defects").Select
End Sub

Hope you can help me