Makro til kopiering af funktion i liste

Jeg har denne makro der går ned til det sidste tomme felt i en række.

Range("A1").Select
    Selection.End(xlDown).Select
    Selection.End(xlToRight).Select
    ActiveCell.Offset(0, 1).Activate

og en makro der skrive en funktion...

ActiveCell.FormulaR1C1 = "=+IF(RC[-5]=""Debit"",-RC[-8],+RC[-8])"
    Range("J430").Select

jeg vil gerne have at Range("J430") ikke er forudbestemt, men lige med det felt som den første makro ender i.

Kan man lave en tilføjelse der gemmer dette felt og indsæstter det som Range ???