Control down with Macro

I record a macro that copy a portion of a tab to another, but when my data changes the destination get data one above the other. I think it is because instead of sending Control Donw it goes to the cell that I recorded the macro with.

I probably just need to send Control downkey.

PHP Code: 

Range("C22:E22").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("archive.xls").Activate
    Sheets.Add
    Range("A2").Select
    ActiveSheet.Paste
    Windows("T&S2 5X 2000.xls").Activate
    ActiveWindow.ScrollRow = 1
    Range("K8:M19").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("archive.xls").Activate
    Range("D2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("A11").Select
    Selection.End(xlDown).Select
    Range("A190").Select
    Windows("T&S2 5X 2000.xls").Activate
    Sheets("TS-3").Select
    Range("C22:E22").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("archive.xls").Activate
    ActiveSheet.Paste
    Range("D190").Select
    Windows("T&S2 5X 2000.xls").Activate
    Range("K8:M19").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("archive.xls").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Windows("T&S2 5X 2000.xls").Activate
    Sheets("TS-2").Select
    Range("C22").Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Range("C22:E22").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("archive.xls").Activate
    Range("A190").Select
    Selection.End(xlDown).Select
    Range("A216").Select
    ActiveSheet.Paste
    Range("D216").Select
    Windows("T&S2 5X 2000.xls").Activate
    Range("G40").Select
    Selection.End(xlUp).Select
    Range("K8:M19").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("archive.xls").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("A216").Select
    Selection.End(xlDown).Select
    Range("A245").Select
    Windows("T&S2 5X 2000.xls").Activate
    Sheets("TS-1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("archive.xls").Activate
    Range("D245").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("A245").Select
    Windows("T&S2 5X 2000.xls").Activate
    Range("C22:E22").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("archive.xls").Activate
    ActiveSheet.Paste
    Windows("T&S2 5X 2000.xls").Activate
    Sheets("T&S Today").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("archive.xls").Activate
    Selection.End(xlDown).Select
    Range("D295").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("A295").Select
    Windows("T&S2 5X 2000.xls").Activate
    Range("C22:E22").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("archive.xls").Activate
    ActiveSheet.Paste
    Selection.End(xlDown).Select
    Range("A308").Select
    Windows("T&S2 5X 2000.xls").Activate
    Windows("archive.xls").Activate
    Selection.End(xlUp).Select
    Selection.End(xlUp).Select
    Range("A294").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "10/6/2007"
    Range("A295").Select
End Sub