VBA Formula mit dynamischem Bezug

Dim letztZeile As Integer
letztZeile = Sheets("Nfr.").Cells(Rows.Count, "A").End(xlUp).Row
Dim SpalteQ As Range
On Error Resume Next
Set SpalteQ = Sheets("Nfr.").Rows(2).Find(what:="Q", LookIn:=xlValues, lookat:=xlWhole)
On Error GoTo 0
Range("G2:G" & Cells(Rows.Count, "A").End(xlUp).Row).FormulaLocal = "=INDEX(Nfr.!$BD$4:$BG" &   _
_
letztZeile & ";XVERGLEICH(A2&B2&C2;Nfr.!$R$4:$R" & letztZeile & ");XVERGLEICH(F2;Nfr.!$BD$3:$BG$ _
3))"
Range("G2:G" & Cells(Rows.Count, "A").End(xlUp).Row) = Range("G2:G" & Cells(Rows.Count, "A").End(xlUp).Row).Value

Nfr.!$BD$2:$BG$2