FormulaR1C1 bzw. FormulaLocal

.Range("AQ10").FormulaR1C1 = "=ROW()-9"
.Range("AQ10").AutoFill Destination:=Range("AQ10:AQ" & Zeilen), Type:=xlFillDefault
.Range("AQ10:AQ" & Zeilen).Value = .Range("AQ10:AQ" & Zeilen).Value

oder

.Range("AJ10").FormulaR1C1 = _
"=MATCH(VLOOKUP(RC[-25],Zahlenabgleich!C[-6]:C[-5],2,FALSE),Zahlenabgleich!C[-5],0)"
.Range("AJ10").AutoFill Destination:=Range("AJ10:AJ" & Zeilen), Type:=xlFillDefault
.Range("AJ10:AJ" & Zeilen).Value = .Range("AJ10:AJ" & Zeilen).Value

geht ohne probleme und zugig.

.Range("AR10").FormulaLocal = "=SVERWEIS(AQ10;$AA$10:$AO" & Zeilen & ";15;FALSCH)"

macht probleme bzw. dauer sehr lange. bei 2900 Zeilen, 2-mal ist der PC schon in die Knie :-(
Die Recorderaufzeichnung ergibt
'''ActiveCell.FormulaR1C1 = "=VLOOKUP(R[7]C[15],R10C27:R[2983]C41,15,FALSE)"
wie baue ich den jetzt um? Zeilen sind Variable mal 1000 mal 2900 können aber auch 5000 sein.
Mein Versuch
.Range("AR10").FormulaR1C1 = "=VLOOKUP(R[7]C[15],R10C27:R[" & Zeilen & "]C41,15,FALSE)"
geht leider nicht :-(
Was kann ich tun, was mache ich falsch?
Gruß Sonnenpeter