excel – VBA Vlookup to work faster

I have a code in vba that works well but it is slow so I am looking for a better solution to this code.

If there is any one who could help me I would be grateful!

Sub Formula()


Sheets("Result").Range("D2:D" & Cells(Rows.Count, 2).End(xlUp).Row).FormulaR1C1 = "=VLOOKUP(RC(-2),DATA!C(2):C(86),3,FALSE)" 

Sheets("Result").Range("E2:E" & Cells(Rows.Count, 2).End(xlUp).Row).FormulaR1C1 = "=VLOOKUP(RC(-3),DATA'!C(1):C(85),4,FALSE)" 

Sheets("Result").Range("F2:F" & Cells(Rows.Count, 2).End(xlUp).Row).FormulaR1C1 = "=VLOOKUP(RC(-4),DATA!C:C(84),13,FALSE)" 

Sheets("Result").Range("G2:G" & Cells(Rows.Count, 2).End(xlUp).Row).FormulaR1C1 = "=VLOOKUP(RC(-5),DATA!C(-5):C,6,FALSE)" 

Sheets("Result").Range("H2:H" & Cells(Rows.Count, 2).End(xlUp).Row).FormulaR1C1 = "=VLOOKUP(RC(-6),DATA!C(-2):C(82),21,FALSE)" 

Sheets("Result").Range("I2:I" & Cells(Rows.Count, 2).End(xlUp).Row).FormulaR1C1 = "=VLOOKUP(RC(-7),DATA!C(-3):C(81),22,FALSE)" 

Sheets("Result").Range("J2:J" & Cells(Rows.Count, 2).End(xlUp).Row).FormulaR1C1 = "=VLOOKUP(RC(-8),DATA!C(-4):C(80),24,FALSE)" 

Sheets("Result").Range("K2:K" & Cells(Rows.Count, 2).End(xlUp).Row).FormulaR1C1 = "=VLOOKUP(RC(-9),DATA!C(-5):C(79),25,FALSE)" 

Sheets("Result").Range("L2:L" & Cells(Rows.Count, 2).End(xlUp).Row).FormulaR1C1 = "=VLOOKUP(RC(-10),DATA!C(-6):C(78),44,FALSE)" 

Dim LastRowColumnA As Long
LastRowColumnA = Cells(Rows.Count, 1).End(xlUp).Row

Sheets("Result").Range("A2:L" & LastRowColumnA).Select
Selection.Copy
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub