Automatisches Einreichen einer Formel in die letzte Zeile einer Spalte

Question

Ich muss ständig bei Zelle R2 beginnen und eine Formel bis zur letzten Zeile der Spalte R automatisch ausfüllen. Die Anzahl der Zeilen ändert sich jedoch ständig, also brauche ich um ein Makro zu schreiben, das die letzte Zeile findet und dort stoppt. Mein Code, wie er jetzt steht, füllt die Spalte R automatisch mit dem Ende des Arbeitsblatts (nicht mit der Zeile, in der meine Daten enden). Wie bekomme ich die automatische Füllung in der richtigen Zeile, in der keine Daten mehr vorhanden sind?

Sub InvoicePrice() 

Dim Lastrow As Long 

Lastrow = Range("P" & Rows.Count).End(xlDown).Row 

Range("R2").Select 
    ActiveCell.FormulaR1C1 = "=RC[-2]/RC[-4]" 
    Selection.AutoFill Destination:=Range("R2:R" & Lastrow) 



End Sub 

Answer 1

set r = range("R2") 
    If r.Offset(1, 0) <> "" Then 
    lastRow = r.End(xlDown).row 
    Else 
    lasRow = r.row 
    End If 

Answer 2

Versuchen Sie, diese (vermeidet select/aktivieren):

Dim Lastrow As Long 
'Lastrow = Range("P" & Rows.Count).End(xlDown).Row 
Lastrow=Cells(Rows.Count, "P").End(xlUp).Row 

Range("R2:R" & Lastrow).FormulaR1C1 = "=RC[-2]/RC[-4]"