Formel in R1S1 umwandeln

Hallo zusammen,

ich habe folgenden Code:

Sub Teilnehmer_Zuordnung()
Dim n1 As Integer
Dim AnzahlTeilnehmer As Integer
Dim Elemente As Integer
Dim StartRow As Integer
Dim Bezug As Range

AnzahlTeilnehmer = Tabelle3.Range("TN.Feld").Value / 2
Elemente = Tabelle3.Range("TN.Feld").Value
StartRow = Range("Start.Zuordnung").Row

Set Bezug = _
Range(Cells(1, 1).Offset(StartRow, MatrixAnfang), _
Cells(1, 1).Offset(StartRow + Elemente - 1, MatrixEnde))

For n1 = 1 To AnzahlTeilnehmer
Range("E4").Offset(n1, 0).FormulaR1C1 = "=VLOOKUP(RC[-2],R5C13:R12C15,2)"
Range("F4").Offset(n1, 0).FormulaR1C1 = "=VLOOKUP(RC[-3],R5C13:R12C15,3)"
Range("G4").Offset(n1, 0).FormulaR1C1 = "=VLOOKUP(RC[-3],R5C13:R12C15,2)"
Range("H4").Offset(n1, 0).FormulaR1C1 = "=VLOOKUP(RC[-4],R5C13:R12C15,3)"
Next n1

End Sub

wenn ich mich auf eine einzelne Zelle beziehe, habe ich diese Umwandlung
ActiveCell.FormulaR1C1 = "=RC[-54]-RC[-53]"
Range(ZielAdresse).Offset(n1, n2).FormulaR1C1 = "=RC[" & Distanz & "]-RC[" & Ziel & "]"


wie muss die Umwandlung aussehen, wenn ich mich auf einen Zellbereich beziehe?
Bezug = R5C13:R12C15
Range("E4").Offset(n1, 0).FormulaR1C1 = ?

Gruß
Siegfried