Excel 2003 und Makros

[Colttt]

Hallo,

ich habe hier ein kleines einfaches Macro, jedoch macht es nicht genau das was ich möchte. Ich möchte das er von der aktuell makierten Zeile eins runter geht und dann entsprechend losarbeitet. jmd eine idee wie man das macht? hier das skript:

Sub Macro1()

    Range("G4").Select
    ActiveCell.FormulaR1C1 = "='T1'!R[2]C[-5]"
    Range("G5").Select
    ActiveCell.FormulaR1C1 = "='T1'!R[1]C[-4]"
    Range("G6").Select
    ActiveCell.FormulaR1C1 = "='T1'!RC[-3]"
    Range("G7").Select
    ActiveCell.FormulaR1C1 = "='T1'!R[-1]C[-2]"
    Range("G8").Select
    ActiveCell.FormulaR1C1 = "='T1'!R[-2]C[-1]"
    Range("G10").Select
    ActiveCell.FormulaR1C1 = "='T1'!R[-4]C[1]"
    Range("G11").Select
    ActiveCell.FormulaR1C1 = "='T1'!R[-5]C[2]"
    Range("G12").Select
    ActiveCell.FormulaR1C1 = "='T1'!R[-6]C[3]"
    Range("G13").Select
    ActiveCell.FormulaR1C1 = "='T1'!R[-7]C[4]"
    Range("G14").Select
    ActiveCell.FormulaR1C1 = "='T1'!R[-8]C[5]"
    Range("G15").Select
    ActiveCell.FormulaR1C1 = "='T1'!R[-9]C[6]"
    Range("G16").Select
    ActiveCell.FormulaR1C1 = "='T1'!R[-10]C[7]"
    Range("G17").Select
    ActiveCell.FormulaR1C1 = "='T1'!R[-11]C[8]"
    Range("G18").Select
    ActiveCell.FormulaR1C1 = "='T1'!R[-12]C[9]"
    Range("G20").Select
    ActiveCell.FormulaR1C1 = "='T1'!R[-14]C[11]"
    Range("G21").Select
End Sub