FOrmeln einfügen bis zur letzten Zelle

Private Sub Formeln_einfügen2()
Range("j2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]>0,IF(RC[-2]-RC[-3]>=75,""ja"",""nein""),"""")"
Range("j2").Select
Selection.AutoFill Destination:=Range("j2:j20000"), Type:=xlFillDefault
Range("a1").Select
End Sub

Wunsch wäre jedoch, dass die Formel nur bis zur letzten belegten Zelle in Spalte A eingefügt wird. Geht sowas? Kann mir da jemand helfen?
Vielen Dank!
Tobias