Sub Macro100()Bucle con las funciones autofill y lookup

Estoy intentado realizar este bucle y desconozco el porque.

Sub Macro2()
'
' Macro1 Macro
'
Dim i As Integer
For i = 1 To 28
Selection.AutoFill Destination:=Range("L" & i + 44 - 1 & ":" & "L" & i + 44), Type:=xlFillDefault
Cells(i, 12).Select
ActiveCell.FormulaR1C1 = "=LOOKUP(R[-37]C,(R2+27-27*i)C5:R(2+25*i-i)C5,R2C9:R(2+25-i)C9)"
Cells(44 + i, 12).Select
Selection.AutoFill Destination:=Range("L" & i + 44 & ":" & "AE" & i + 44), Type:=xlFillDefault
Next
End Sub