macro for index, match

I am having trouble adding in an index, match formula to my existing macro.

Here is the macro I am trying to add it to:
Sub AllElementsListEdit()

'select sheet
Sheets("All Elements List").Select
'change text to number
Cells.SpecialCells(xlCellTypeLastCell) _
.Offset(1, 1).Copy
' Range("a:a") is what will be changed from text to a number
Range("a:a").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlPasteSpecialOperationAdd
With Selection
.VerticalAlignment = xlTop
.WrapText = False
End With
Selection.EntireColumn.AutoFit
'filtering part
'Assign the value in A2 to a variable
Criteria = Worksheets("Numeric Response Report").Range("A2").Value

With Worksheets("All Elements List").UsedRange

'Filter Column A for the defined criteria
.AutoFilter field:=1, Criteria1:=Criteria

'index, match formula, not working

End With

End Sub

and here is my index, match macro:
Sub Macro1()
ActiveCell.FormulaR1C1 = _
"=INDEX('All Elements List'!C[3],MATCH('Numeric Response Report'!C[2],'All Elements List'!C[8],0))"
Range("C2").Select
End Sub

I know the main problem is the ActiveCell. part, but I don't know how to change it. Plus I had to record it becuase I don't know how to write the vba for the formula.
What I want to achieve in the index match is:
1) look at column E in the "numeric reponse report" worksheet

2) go to the "all elements list" worksheet. in column K that same value will be found

3) to bring back the value in column F

Any help would be greatly appreciated!!!