VBA Kopieren nur bis letzte Zelle?

Hallo zusammen,
ich brauche bitte Hilfe, ich finde den Fehler nicht....
Ich habe in A2 Nr bis 30759, ab F2 bis N 2 soll eine Formel rein also schreibe ich diese in F2 und ziehe bis N 2.
Nun soll diese bis zur ersten befüllten Zeile in F2 > N2 (ist aber immer unterschiedlich) kopiert werden, aber .. Excel macht es nicht?? warum?

Vielen Dank!
Peter
Sub Makro4()
' Makro4 Makro
' Lauf1
Range("F2").Select
ActiveCell.Formula2R1C1 = _
"=IFERROR(INDEX(Tabelle1!C[2],AGGREGATE(15,6,ROW(Tabelle1!R2C9:R100000C9)/((Tabelle1!R2C3:R100000C3=RC4)*(Tabelle1!R2C4:R100000C4=RC3)*(RC5>=Tabelle1!R2C1:R100000C1)*(RC5=Tabelle1!R2C2:R100000C2)),1)),"""")"
Range("F2").Select
Selection.AutoFill Destination:=Range("F2:N2"), Type:=xlFillDefault

Dim lngLast As Long
lngLast = Cells(Rows.Count, 1).End(xlUp).Row
'Kopiere die Formel bis zur letzen befüllten Zelle
Range("F2").AutoFill Destination:=Range("F2:N2" & lngLast)
End Sub