Kopier ned til sidste række

Range("I3", Range("I65536").End(xlUp))

Nu faldt hammeren. Jeg havde prøvet den kommando men selvfølgelig virker den ikke
Problemet er at der ikke står noget i kolonne I, det bliver kopieret fra kolonne E
Så det er til sidste række i kolonne E

    Range("I2").Select
    ActiveCell.FormulaR1C1 = "=+RC[-4]"
    Selection.Copy
    Range("I3", Range("I65536").End(xlUp)).Select
    ActiveSheet.Paste

Hvordan finder jeg så den sidste række i kolonne I (E)

Jeg lukker igen. Jeg tager bare X antal rækker