Ampliar rango de fórmula en macro

Como le hago para ampliar el rango de esta fórmula en esta macro
y que llegue hasta donde la columna no contenga datos
ejemplo hasta la columna DX
Sub formulabuscarcoincidir()
    Dim UltimaFila As Long
    UltimaFila = Cells(Rows.Count, "E").End(xlUp).Row
    Range("F5").FormulaR1C1 = "=+VLOOKUP((RC2&RC3),Macro!R1:R65536,MATCH((R1C&R2C&R3C),Macro!R1,0),0)"
    Range("F5:F" & UltimaFila).FillDown
End Sub